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este número dos que ahora tiene en sus manos, sabiendo que 
no nos defraudaría, con entusiasmo hemos podido comprobar 
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Para Spectrum 16 6 48K 


El primer juego 
participativo 
para 
ordenador 


Presentado por BIGOTE ARROCET 
Según idea de Chicho Ibáñez Serrador 
Adaptado por A. Bellido 


La 3? generación de software 
audio + programas 

ii CENTENARES 

DE REGALOS! Be | 

uno de cada tres 

casetes tienen regalo 

seguro y TODOS 

tienen participaciones 


para el Sorteo de SOLICITE YA EL CASETE 
regalos en la А SU PROVEEDOR HABITUAL 


GRAN FINAL NACIONAL . 2925 ptas. 
eRopucipoeon BELLTONS y PARANINFO SOFT 


profesionales 


Easel no es, aparentemente, otra 
соза que un programa que sirve 
para hacer dibujos. Como tal pro- 
grama podríamos haberlo incluido 
en la sección correspondiente en 
las ültimas páginas de TODOS- 
PECTRUM. Pero basta echar una 
ojeada a las fotografías que acom- 
pañan este texto para comprender 
que no se trata de un programa 
más. 

La primera vez que uno se en- 
cuentra cara a cara con él, no pue- 
de por menos que impresionarse 


ante la belleza de estos gráficos fal- 
samente atribuidos en exclusiva a 
otros ordenadores. Cuando más 
calmadamente se le echa una se- 
gunda mirada, es fácil convencerse 
de que las aplicaciones del Spec- 
trum pueden abarcar desde la más 
sofisticada guerra galáctica al más 
perfecto programa de utilidad em- 
presarial. Ahora ya no queda la 
más mínima duda. Veamos sin 
apasionamiento y con un profun- 
do análisis descriptivo lo que pue- 
de dar de sí este programa. 


Para realizar buenos 
gráficos ya no hace falta 
pensar en grandes equipos. 
Las posibilidades gráficas de 
su Spectrum le permiten 
realizar los más sofisticados 
gráficos de barras, de líneas y 
los atractivos dibujos de 
tarta. El color juega un papel 
muy importante en la 
representación de las curvas 
para diferenciar los 
diferentes datos, pero no es 
necesario al utilizarse trazos 
distintos para la 
representación de las 
distintas curvas. 


Está inspirado en el que con el 
mismo nombre fue escrito para el 
QL. Representa gráficamente los 
resultados numéricos introducidos 
por teclado. Información que vi- 
sualiza en tres tipos de gráficos: de 
barras, de línea y de tarta, Se pue- 
den comparar de forma aislada o 
conjunta doce valores de tres con- 
ceptos distintos, siendo ideal para 
la información mensual típica de 
los balances o informes que tanto 
gustan a los ejecutivos. Pero mu- 
chas y variadas pueden ser las apli- 
caciones y muchas son también las 
variantes. 

Una vez que haya cargado el 
programa (aunque es un poco lar- 
go merece la pena), al ejecutarlo le 
aparecerá en pantalla el mensaje 
“Cargando código máquina” se- 
guido de unas líneas: 8100, 8110, 
8120... Se refiere a las líneas 8100 
a 8195 donde se guarda la informa- 
ción en hexadecimal que el pro- 
grama utilizará para crear una ru- 
tina en código máquina al objeto 
de generar los gráficos con gran ra- 
pidez e incluso para crear un alfa- 
beto especial de representación de 


los meses. Introduzca estas líneas 
tal y como aparecen en el listado y 
no se preocupe por la posibilidad 
de cometer algün error. El ordena- 
dor sabe que errar es de humanos y 
por ello comprueba los datos. Si 
cometió algün error le indicará la 
línea a fin de editarla con facilidad; 
en caso contrario continuará el 
programa preguntando el nombre 


Ya БЕТЛИ 
121112" 


nbre de 


CIÓN: ХМ) егу 
100 LET z$-b 


7: BORDER Y 


abcdefaheijk 


que desea dar a los datos. Después 
se ofrece el menú, que tiene las si- 
guientes opciones: 

1) Entrada de datos. 

2) Adición/cambios/impresión 
de datos. 

3) Formato general. 

4) Gráfico de barra. 

5) Gráfico de lineas. 

6) Gráfico de tarta. 


T 
РОКЕ US 
'+4, 240: 


$ il) ='1 eo 
j tmn 


"NO REM 


© CLCS 
tj 


pu 


"ВВ. 


mas 6G 


95 
ОР 


cy IF INKEY$:»"s" 


INKEY$-"2' 
INKEY $=" 
INKEY$-"4'" 
INKEY $=" 
ТМКЕМ $="6 


PRINT HT 12,12; 
INT 
se perde- 


@ IF INKEYS=" 


Entrada de datos 


Al ejecutarse el programa por 
primera vez, automáticamente se 
entra en esta opción. Esto es lógi- 
co, ya que el programa no tiene 
prevista la obtención de datos por 
fichero o microdrive. Se piden los 
datos del primer concepto: nombre 
(hasta 7 caracteres), seguido de la 


THEN 
3" THEN 
THEN 
5" THEN 
' THEN 


TG 
TO 
TO 
то 


то 


RXriiiXiiixtkktk 
+ ENTRADA DE CATOS + 
ыы 
: IF nzà THEN GO TO 195 


FLASH 1;" 

Los datos existen 
ran con esta opcio 
Desea continuar? i 


п" THEN 60 TO 58 


THEN GO TO 1 


110 LET n$zm$il): GO TO 1000 
SUD REM *xx*&*x«* doo DIM ¿Es zs DIM diss 3): D 
501 REM + MENU x . Ат: LE в: DIM eis 
502 REM x*k**** 1958 CLS : PRINT TAB 10; PAPER 5 
510 CLS, „PRINT TRB 11; РЯРЕН В INK “ENTRADA DE DATOS” 
Hs i E ата f=1 TO 12: PRINT RT Б+Г 
52 = @; г; NEXT f 
dat а а =9+1: GO SUB 3000 
ir о y 9=3 THEN GO TO 1130 
бє е 100 PRINT #1;АТ 0,0; PAPER 2; " 
Pa є uiere meter mas datos? (s/n) 
at" z 
1110 PRUSE 0: IF INKEYS-"s" THEN 
538 PRINT пі; AT t ер TO 1030 
LEE ens Y 17 20 IF INKEY$<>"n" THEN GO TO 1 
540 is SNKEV $c" GO TO 10 18 
E 1130 PRINT 41;AT 0,0; 2%; PAPER 2 


entrada numérica (máximo 7 dígi- 
tos) correspondiente a los doce 
meses o doce características que se 
pidan, apareciendo en el margen 
izquierdo una numeración del 1 al 
12 que sirve de guía. Sólo se admi- 
te una entrada numérica, por lo 
que si no se dispone de datos habrá 
de introducirse un cero. Finaliza la 
entrada de datos introduciendo los 


doce datos o pulsando la tecla “е”. 
Después se posibilita introducir, 
de la misma forma, dos columnas 
de datos adicionales para otros dos 
conceptos. Al abandonar la entra- 
da de datos se pasa al menú. 


Añadir/Corregir/Ver datos 


Con esta opción se muestran los 


datos en pantalla y se puede elegir 
entre una serie de subopciones: 
(M) Menú. Se vuelve al menú. 
(C) Corregir. Cambios en los da- 
tos de un concepto. 
(L) Listar. Se obtiene una copia 
por impresora de los datos. 
(A) Añadir. Introducción de 
nuevos datos para un concepto. 
(N) Cambiar título. Cambiar el 


e 


jo PULSE UNA TECLA 2050 sag 
j LET п=9: PAUSE Q: GO TO 500 2030 2200 
O REM £sXXxs5k*EkkKXXEXXRREEXik 3108 2390 
REM + VER/SUSTITUIRIDATOS) € 2110 
REM УХУ RANIA RE RARE ARA 2120 2400 
Gr" ven SUSTITUIR A glad. + 2200 Р BRINT AT "à O;zS;z$: IF 1 
Ag" 1, „АМЯАСТ D ; ; 8. ns 
| р THEN LET 9=1: LÉT а=16: 60 TO 52 
ERINT HT 2,16-LEN 1$/2;т 
| OR f '18: PRINT АТ Gar 2210 PRINT АТ 20,0;"Colunna т 
| NEXT f е 
PRINT RT 4,9% 22 


сыкы SUB 9840: LET 9=VAL d$: 


H ‚9* -\(9);а%(9!: БЕТ 
тетот En sins 2230 НЕНИЯ Fila ? 
c 5 
2255 ¿ero AT_5+f1,3+8+7-a;dÍf, 2240 LET col=29-a: GO SUB 9850: 
: NEXT f: NEXT 9° [С у, ГЕТ fsURL d$; IF K«l OR {>12 THE 
2050 PRENT PAPER 2; "М м GO SUB 3999 F uS 224 


ENU: (M) епу 


(7 


SUFTURRE 


CENTER 


(83) 432 07 31 


Avia. Mistral, 10, 1.* D esc. Izda. 
BARCELONA-15 


iLj istar 


i 


PAINTBOX 


отта с И 


Aventuro 


V. Castel lano 


PROFESOR 


| Utilidad 


038738 
PAREJAS 


Habilidad y educativo 


1790 рь 


DIETETICO COMPTES - CUENTAS 


2.495 pts 


Contabilidad familiar 


| 2.495 pts 


AGENDA PERSONAL 


| Utilidad 
| microdrive 


3.300 pts 


я 


FICHERO P 


| Utilidad 


II ct 
| JUEGOS OLIMPICOS 


«BARCELONA 1992» 


| Simulacion y habilidad 


| microdrive 


ERSONAL METRO 


Habilidad 


3.300pts 


1.995p1 | | 


ARCHIVO 


Util idad 


1.655 pts 


| ttt | TAWUR 


| Utilidad 


2.330 pts 


Azor y simulacion 


BASIC 


Educativo 


2.2259 


2.350pis 


| SCANORAPH 


Utilided 


| COBALT 


| Simulador de vueio 


MANAGER 


Simulacion 


| 2.500 pis 


TRATATEXT 
Utilidad 
microdrive 


3.000 pts 


3.300 pts 


| CONTABILIDAD GENERAL 


Gestion 
| microdrive 


8 


título dado а uno de los tres blo- 
ques de datos. 


Formato general 


Con esta opción se accede a una 
serie de datos de carácter general 
que aparecen o sirven de control 
en los distintos gráficos. 


1. Título principal. Es el título 
que aparece en los gráficos. 

2. Subtítulo. Aparecerá bajo el 
título principal debidamente cen- 
trado. 

3. Etiqueta del ej 
que aparece en el eje * 

4. Etiqueta del eje 
que aparece en el eje 


X: rótulo 


rótulo 


5. Opción anual. Se puede in- 
dicar SI o NO. La opción "SI" per- 
mite trabajar con meses para cada 
uno de los 12 datos por concepto. 
En este caso se preguntará “Mes 
inicial", es decir, el mes que co- 
rresponde al primer dato. Los da- 
tos siguientes se reflejarán en los 
meses sucesivos al mes inicial in- 


2296 IF fre 12. THEN LET е (9) f 3079 IF month< 
2297 GO TO 2060 3080 IF nonthz! 
2300 IF n3 THEN LET п=п+1: LET 3090 PRINT INK 4; АТ 20, mod in 
9=п: GO TO 59 icial: ";: PRINT month 
2310 PRINT AT 20,0;"Columna"? 3100 PRINT #1; PAPER лр 0,0;"P 
‚ GO SUB 9340: LET 9=UAL d$: ulse numero y especifique dátóso 
PRINT АТ 20, pulse 'M' para ver el Menu 
2320 PRINT #1;ЯТ 0,0; PAPER 2; 3110 PAUSE 0: POKE 23658,0 
L dato “";9; sera borrado. bot 3120 IF ІМКЕҮф="1" TH LET ѓе4: 
erecontinüar? (s/n) LET 9=31: GO SUB 3300: LET t$zd 
2330 IF INKEYS$="n" THEN GO TO 20 3150 IF INKEY$z"2" THEN LET fz68: 
СЕТ 9=31: GO SUB 3300: LET s$=d 
2340 IF INKEYS<>"s" THEN GO TO 2 3 
330 140 IF O зв THEN LET_f=12 
2350 FOR f=1 TO 12: LET dif, 9230 1 LET 9=24: GO SUB 3300: LET x§= 
: PRINT RT f46,948;z$! TO 7 3, 
XT f: GO SUB 9600: e TO 2068 3158 IF INK e A THEN LET_f=16 
2400 ЕРТ Ш1;ВТ 0@,0;7%;7% : LET g=14: G ss 3300: LET y$: 
2410 IF п=1 THEN 229 9=1: GO TO 3$ 
2110 3160 IF INKEYS="S" THEN GO SUB 3 
2420 PRINT AT 20,0;" columna 200 
2 3170 IF INKEY$-"m" THEN GO TO 50 
e 
3180 GO TO 3109 
вара PRINT ФІ; АТ 0, iub PAPER 2 
"Desea opcion anual is/n) 
3210 РОКЕ 23658,0: PAUSE à: IF I 


2430 GO SUB 9840: LET g-URL d$: 
2 

$. LET AÑ à =3$: 
Е )zLEN d$: GO TO 
3000 RÉM жжке ++ 
L PAPER 5; 
2 Titù 
$. 
"2) Subt 
"3 Eti 
e х: Hd Х% 

NK 4; ат" ieu Eti 


veta del eje у: Р 
Joso PRINT INK 4;Ат 18,0; B) opc 


ion anual:"; 


со Qi" Q.—0 


Y $z"n" THEN LET month=8: LET 
Q$zn$11); PRINT RT 18,16; "No "jn 


eu 
e M iB INKEY$ 0 ' THEN GO TO 3 


5250 PRINT RT 18,15;"Si' 

eis LET c$z' 'Teciee el mes inici 
: LET 201818: 60 $ 

Ов osse; LET monihzUBL d$: IF mo 

nthxl OR manth»12 THEN GÖ SUB 99 

90: 50 TO 3240 

3250 LET "Ia tis ert rtt m 

О »rm&i2, TO imonth-1)*2) 

3250 RETÚ 

3308 PRINT #1;AT ES 

3310 PRINT PAPER 6; At #,6; 2$ TO 

$z 


E 
albe PRINT AT f LEN d$; PAPER 2; 
1; Sande (76-(9 AND РЕЕК 23 
ДНЕ EE ð: LET, i$zINKEY$: 


Вай IF i213 THEN GO TO 3400 
3350 IF і=12 AND d$:»"" THEN PRI 
Т RT r,LEN d$; PAPER 6;" ": LET 
EREN "TO LEN 48-1): 60 TO 3390 
3360 ir LEN de=9 THEN GO TO 3320 
3370 IF i431 OR i»127 THEN 60 SU 
B 9990: GO TO 3320 
3388 LET d$zd$ 
3390 PRINT AT Ғ,@; PAPER 6; INK 
Qidé: СОТО 
3400 PRINT ЯТ F,LEN d$;" "¡AT f 
8; DVER 1; PAPER ©; INK 7;2%: TÓ 
9+ 


troducido. Si se elige la opción 
“МО”, no habrá referencia a me- 
ses. Sólo aparecerán doce subdivi- 
siones relativas a los doce datos. 


Gráfico de barras 


Aparecen los nombres de los 
bloques de datos introducidos y se 


ha de seleccionar el bloque o blo- 
ques de datos a representar. Así, si 
introduce 12 se representaría con- 
juntamente los datos referentes a 
los conceptos 1 y 2. Pero si intro- 
duce 123 obtendrá el gráfico de ba- 
rras de los dos primeros y un gráfi- 
co de líneas del tercero ante la im- 
posibilidad física de ofrecer los tres 
de forma conjunta. 


Gráfico lineal 


La selección se efectúa igual que 
en el caso anterior. 


Gráfico de tarta 

А diferencia de los anteriores, 
sólo se puede obtener el gráfico de 
un bloque de datos. Pero se tiene la 
posibilidad de resaltar alguno de 
los doce segmentos. 


E DO AO 


3410 RETURN 120 
4000 REM sxX4x£X34** RARA 4100 LET 8C z-UBL d$i3); FOR f=1 TO 
4001 REM + GRAFICO DE BARRAS + е(9)-1: PLOT INK 8; 484 *16,384p 
4002 REM X*Xx*x*YX*ksu*i33kXxS9kXXd сата DRAW INK 3; OUÉR 1; 
1 THEN LET d$z"1": GO 5,tdirtl,d)-dif,g)) esc: SEXT f 
4110 PRINT PAPER 1;"/="; 
: PRINT TAB 7; PAPER 6 4120 PRINT #1; PAPER 2; M i e; bs 
GRAFICO DE BARRAS (77 s 
INT RT 5,0; "Oue datos?" 4130 IF INKEY$z"m" THEN GO TO 58 
1 TO n: PRINT RT 6+f, e ў : 
if): NEXT f 4140 IF INKEYS$-'"p" THEN COPY 
RT 18,0;"Cual represe 4150 IF INKEY&z"r" THEN GO TO 40 
UB 9850 2 va 
4o 50_: 3100 4160 GO TO 4130 
4070 LET_f=UAL CENE IF LEN d$= 5000 REM ***&ta3uk*kuttkss 
1 THEN LET gzf: 60 SUB 9200: GO 5001 REM * GRAFICO LINEAL + 
To_4090 5005 REM жазз зява  _ 
4080 LET 9=UAL aman GO SUB 220 5010 IF n21 THEN LET d$="1": GO 
0: GO SUB 9500: LET 58 TO S060 
4099 GO SUB 9500: RAND MIZE USR 5020 CLS : PRINT ТАВ 9; PAPER 6; 
50400: IF LEN d$<>3 THEN GO TO 4 INK @; "GRAFICO LINEAL 


ZX SPECTRUM 48 K 
ZX INTERFACE 1 
ZX MICRODRIVE 
COMMODORE 64 

PRECIOS MUY INTERESANTES 

iCOMPRUÉBELO! 


Envíos a toda Езрайа por correo 
O transporte urgente. 


S 


¡AHORA! 
¡FULGURANTE AYUDA 
PARA EL MEJOR ORDENADOR! 
AL FIN FLOPPY DISK PARA EL SPECTRU 
CON NUESTRO INTERFACE EXCLUSIVO: 


Sistema operativo en EPROM. 
lo 128 bytes de memoria del Spectrum. 


Capacidad para tres unidades de floppy totalmente 
standard де 5 1/4” 

Compatible con Drives de 40 y 80 pistas, de una o dos caras 
1 Maneja un máximo de 1,2 Mbytes. 

Cientos de referencias. 


SERVICIO POST-VENTA 
GARANTIA TOTAL 


Emplea los comandos del Spectrum. 
Protegido con "password". 

Facultad de Merge de programas en Basic. 
Gran facilidad de empleo. 


TAMBIEN EN STOCK TECLADOS PROFESIONALES, 
INTERFACES DE IMPRESORA, ETC. 
INTERNOVEL (EA 3 BJT) 


c/ Victor Catalá, по 4 
Torroella de Montgrí (Girona) 
Teléfono: (972) 758431 


AMPLIA GAMA EN SOFTWARE Y HARDWARE. 
PIDA CATALOGO MAS DETALLADO A: 


00 Sistemas Lógicos Gerona | 


м 
Apartado 380 - 17000 GERONA 
Teléf. (972) 75 84 31— 23 7100 


En los tres gráficos se dispone de 
la opción PRINT para obtener co- 
pias directas por impresora del 
gráfico en pantalla. No existe op- 
ción para detener el programa, por 
lo que deberá pulsar CAPS SHIFT 
y BREAK o incorporar una sépti- 
ma opción al menü. 


ción de las rutinas en código má- 
quina de las líneas 8000 a 8195. La 
primera de ellas, dibuja el gráfico 
de barras, ya que esto sería excesi- 
vamente lento en BASIC. La se- 
gunda dibuja las líneas de los ejes. 
Una tercera rutina se encarga de 
colocar los datos del eje X de for- 


los meses en un formato inferior. 

Una vez ejecutado el programa, 
puede lograrse mayor rapidez 
cambiando la línea 10 por LOAD 
* > CODE, eliminando las líneas 
8000 a 8195 y grabando el progra- 
ma con 


SAVE "SP-EASEL" LINE 10: 


Un buen programa, realizado en та adecuada. Finalmente, se utili- SAVE “Easel CM" CODE 
BASIC en su mayor parte, а excep- za el código máquina para rotular 60000.460 
5030 PR а; "Әџе datos? 3+.5) 7100) +" 0" 
5040 FO п: PRIN м AT 6+Г, 6180 LET PASS INT pl: LET q4= 
Ei ДИЕ, NEXT f ("."+99 AND agii TO 2) ="20") + (4$ 
5050 РВ ,0;"Cual represe AND. a* 1) ‚„“›+(ад$‹(23 TO ) AND q 
nto?" ; 5o Hi т! )e"9Q.") 
5059 GO SUB 9100: GO SUB 9300 196 PRINT 5+f,29-LEN P$;pS*a 
5270 FOR a=1 TO LEN d$: LET 9=UA g TO. 3 
L саа 9600: NEXT а 200 IF .025 AND КАШ ТНЕМ РВ 
508 PRINT #1; PAPER 2;AT 1,0;b$ INT INK 4;RT 546,22; "+"; ЯТ 19,24 
(7) "+ s no "¡AT 28,24; Estan еп”; я 
suso IF 'm" THEN GO TO 50 t 21,24; ratico" 
ГЈ 5210 IF month<>0 THEN POKE 23506 
5100 IF "Р" THEN COPY ‚116: КЕ 23607 ,232 
e ud IF f" THEN GO TO 50 ER PRINT RT Ss, e3;n$ir«sa2-1 TO 
* 
5120 50 TO 5090 6230 IF p<0.025 AND f<>h THEN GO 
5000 REM *4X*t&t**44k4k3tYkkk TO 626 
6001 REM * GRAFICO DE TARTA * 5240 PLOT 34+ (В: #8+52) #С05 r1,76 
6002 REM **k3skrkdkd3dX*k +í и rl: DRRU 4*COS ri 
6010 IF п=1 THEN LET 9=п: GO TO 4+5 
8050 &25@ PRINT OVER 1; INK а: ВТ 1i 
5020 CLS : PRINT ТАВ Bt APS 6; S4hi)xSIN ri, 10+ (8+6: 14505 ri;ns 
INK 0; “GRAFICO DE TRRT {42-1 TO f42) А 
5030 PRINT RT 5,0; "Que eh 6260 LET а=г: POKE 23606,0: POKE 
6040 FOR fzl TO ni Е AD би, 23607,50: NEXT f 
erit") s Y UE NEXT f 5270 PAINT #1;АТ 1,0; PAPER 2;b$ 
5050 pRINT BT $0,0;"Que grafico? (7) 
"; GO SUB 9840: LET gzURL d$ 6280 IF INKEY$-"m" THEN GO TO 58 
60560 IF 2(91=1 THEN LET h=0: GO e E 
TO 61190 6290 IF ТМКЕУ$="р" THEN COPY 
50870 PRINT H1;RT 0,0; PAPER 2; "В 
esea resaltar algun segmento 4 
el б Pause de tarta? (5 /п) P 
5080 PAUSE 0: IF INKEY qa" n" THEN 
LET h=0: GO TO 5110 
езе TE НКУ »"s" THEN GO TO 6 
6100 PRINT RT 20,0; "Segmento? mer 
"x КЕГЕ сф=" Тесіее el numero a = 
resalta LET colzi?: GO SU 
B 9850: LET haURL «e IF h«1 OR - 
5°! THEN 50 SUB 9990: GO TO 6 Eu 
m 
5110 LET 1=0: LET а=0: LET c=100 = 
: LET г=д. FOR ru pis eig): LET > 
t=1+ABS_ dif, 5B) 
5120 CLS : PRINT “тав Ís- EE 1$/2 
$18; AT 2:28; 2,0;a 
$09, to вое 
ntajes” 
6130 FO PLOT 84,75 
TUE di : СЕТ cistap 
СЕСЕ m г 'DRRU 48+C05 
T,48XSIN r k т"г" т 
6148 IF р=Г THEN PLOT 844104CO5 Gunn EID ENSE E 
£1,786*10*SIN r1: DRAW 48«*COS г,4 8310 80 то 6280 
SAÍIN Г 3000 РЕМ PEERAA d nn + 
6150 LET hi=0: DRAW «Br (cos а-со 8001 REM 1 CODIGO MAQUINA + 
S r),48* (SIN a-SIN r),-PX2xPI: I 8005 REM **xxx*x** ана 
Ё ёїд}=1 THEN CIRCLE 84,76,48 8005 CLS . PRINT "ESPERE, ESTOY 
5160 IF haf THEN DRRU -489605 a, CARGANDO C/M": PRIN 
z483SIN a: LET hisl 8010 LET c=0: LET nseggog 
6170 ШЕТ_р1=1МТ_(р+1е4+.5) 7/100: 8015 FOR ї=@ TO 9: READ 
LET q$zSTR$ (INT (100+(p1-INT ра 3020 FOR sel TO LEN a$ sep 2 


o qr Raw aa a mol mo o 

зей 905 995 929 950 mo 23 

DLE оме. чаю (Оу ау man euo 10) 

ото vun ONO 0999 GSS 95 kkkt 

vuo ГРЫ 999 599 OOG 59 ж жә 

чот чол 555 GSS SOS SG жюжж 

4:0» шм 595 GSS 995 GG жж 

mur рч сис m TOD PMA Qe жеж - 

Ora о чоо MMA MOA MN жтж+ 

fim D  wüc SON mom mem тәж 

M4 баш MAA дю VOM ам жож o 

Ran ano айо Da moe mm жщ жг 

tae бое ФА mme NAM no жож о 

OD тю айт mo mnm LES ж o os 
Qua 099 ONA Maw а ам *r*«z o О 
оог mot mo mom mnm ma QW Зо 
Not 09 AUO (тт ды Qo жж © m 

do DON тат (OS Qd AN жожо m OO 
Da шешг. DANA оно MARA PAN ani 0 = я 
DMO MANO MOON 0969 1999 MOO m*z*. M : A 
Rot: PONU MOAS: MOGO: MORO: ipo: M жш ж 

:odem: de 10: 9990: 99910: 9900: DANA жї m © d 
Dan mo эбэ DAA mon OG kkk > о ы 
т=аоттт= CAOS ANDAS n S 
Бог YO rrEmamriünorrEO0nsm-rEJ4)0,-rrrcE 

точит IIDOQuUUIIDSITOSSqIOSZTUl о . 
6596045 Güsüusoannsoaswdoogu org. B o ` ч 
gio Aw NOS оп [lolo] 

эйә: поа OO ANO RÍAS RADO: 7 

FANA EDO Or (O0 9 OO ID ГУ 0 тоГг- (09 0Э IS з OO IS CHIPS A [9] 

CUD me d eise dm. moder mudadmmdadmmdsmo © 

52-501 то ON- тр I 00 0000 00.00 00 (0 02 0 69.00 400000 9.00 (060 (S ONAN п n й + # + 
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Lal 
Е 
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а E d4- ого эге оо 
o zm әта Гош denm 00 
o ra Ses шо as dad 
и Jc em юше 6D ron 
а от E 200 шаг. mus nv 
on» 25 тою S4 + BAA < 
Е J ай VAD HOS 4o 
ul LE m Me + ч- гый vO- = 
2 "ma L- зо цей Gas Gon EH 
"nu H cam ido nri mi 
E 2 c Чой 566 Guo шч с 
= ke EL р чч (on MOH 
л шш. э = mmn птш MOA PAM 
= ааш S- шй ойга боз г ed 
= da дек O-« vro dro es 
т zz + Diax Mon <ar Døm Rm 
тШ O Hd соз VSS шей 
ш *IIO- 59: -Z ir ртт ерш MDY 
а SERA из м QOO AVAG Зое AUDO m 
Я + iet xp - чей бязь mme rmm г oO 
О оше се 2229 Не: AANA: VAR: pes: s e 
н WOQugzHw' HONZ: «Dip АГ: БЫ: ipfo mi 
т олла Е reor ато E» 
4 sa M катаа Эт 
Ба нхнхан MEE [бә] 
Wta шошыша +шшӯт 
Чина Tz raus зас 
ючоюоюорошоЕ +09 
QoO0440000r- г 
S 95555 = - 
0ш009000090 000: 


5848 LET 109) zLEN d$: LET 2$(9) = 


ELEM GO SUB 3319 
3059 25 аена OR 1=еп4+32 THEN G 


o TO 

Е РЕ? fzf*l: LET dif,g)zURL d 
$: 12 THEN GO TO 3045 

os LET е (9) =f: PETERE 

9100 REM xsxxkx& 


* 
9101 REM E ESCALA” H 
9102 REM *s*xksák&s 


3110 CLS : PRINT ЯТ 10,5; "ESPERE 
‚ POR FAVOR ESTOY"; AT 12,7; "РЕБЕР 
ARANDO LA ESCALA" 

3120 LET s=0: LET $5=2: LET m=1 
LET dizà: FOR а=1 TO LEN d$. L 


T SzURL d$ial: 


E 
IF eigjòdl THEN L 
ET dize ig) ү: 


LET kzà: 
9148 E bil8' HEN LET bzb/10: LE 
1: GO TO 3140 
9150 IF k»s THEN LET Szk: LET 55 


BIER IF SGN dif,g3)zs-1 THEN LET n 


9178 NEXT f: FOR fzi TO eig): LE 
T bzRBS díí,g)7/10fts 

91580 IF b»5 THEN LET s521 

9190 NEXT Г: NEXT a: LET sc=124m 
*s57/10ts: RETURN 


9200 REM X445 44 44YEREXIEXE 
9201 REM *CARGANDO GRAF .BARRAS* 
202 REM УЖИНЕ 


c 

RE qi ne e 
REM + DIBUJAR GRAFICA + 
2 REM А tdi А 


LE 
=61: POKE Boor 38: PÓ КЕ Lr] 


а PRAY 198,0; LET х=36; FOR y 

19,144 STEP 12: PLOT 54,х+у: 

БЫН ТЕ mz.5 AND ya54 THEN LET x 

9868 PLOT 58х44 +6; DRAY 3,0: NE 

: PLOT BU 3,0 

3370 LET a-lQis: IP $52 THEN, LET 
a=1: PRINT AT 20, 2; INK i 

ats: ЁТ $30 

9380 INK FOR ysB TO 10 STEP 2 
ЭЗЕ ІМК i10 E 

RINT ВТ 8*1.5:9,6-LEN STRS X;X: 


Ou OOMOO T-O OOU- Id) O 
DOON OZN бубу GOG« Ф руж А) 


НЕХ 

S550 Е _month<>9 THEN 5а CREME 
116: POKE 23607,232: PRINT 
$,7;nst TO dis 


Zin 
PÓKÉ 23607,60 
eo IF months 
ini TO di«2 


o FORT HE Ei As LEN x$72, 

@ FOR N y$: PRINT AT 
LEN o v ni FR eni: NEX 
o 

iz 


@ 
2): РОКЕ 23506, M 
o 
Yi 


THEN PRINT АТ 18 
RRNDOMIZE USR & 


INK 7: PRINT RT uo 0; PAPER 


$; АТ 21,0; "CLAVE" 


9440 RETURN 


9500 REM x*éxk*3sku4* 
9501 REM + CLAVE + 
9502 п я 


9510 
9520 PRIME KS 1; INK i; №; I 
NK 7;"z";astf); 


600 REM ++ 
9801 REM 1 DIBOJAA CINEAS'! 
98602 REM X*4*95**X4*3X*X9X3*4 
9510 POKE 50135,9*2-2: POKE 6013 
4,0: PLOT 5349.5 +ру+а (1,9) С 
9620 FOR f=1 Тб еа е: Lt dal 
кач 35: POKÉ 60152,ABS y+* 
sc: POKE BÓlS55,SGN i 
9530 RANDOMIZE USR 60137: NEXT f 
9640 PRINT PAPER 1;k$(9);n* `9) ;а 


dedo! RETURN 


9500 REM жж фаз 
9801 REM *ENTRADA DEL TECLADO + 
9808 REM 4533343433433 X 


чора КЕТ Line=f+7: 
&ns?: LET end=69: LET max 


LET со к9#8+7 


255 ТЕТ mins4S: LET excep=47: L 
c$=b$ (3): BO TO 9880 
9820 LE RITTER L 


ColzgxBs7 


LET len=7: LET endza86: LET maxe 
127: LET minz31: LET excepsa: LE 
T C$sbS(2): GO TO 9880 


9840 LET \1пе=20: LET col=15: LE 

LET end-256: LET nmaxsCO 

E БЕТ n: LET пїп=49: LET 2“ 
c$=b$ (5) : 


50 TO 98 
3350 LET line=20: LET 


Es 
ut. 
2 
а 


Li i ne,col- sens , 
zgi LÉT d 
9890 PRINT 81; AT Q,0;z PAPER 2 


© 

i 

¿ódo PAUSE @: LET i$=INKEY$: LET 

izCODE i 

8918 Ir 1242 АМО déc»"" THEN PRI 

NT. EN) er des COL-LEN d$; PAPER 6;" 
d$żd$í TO LEN d$-1): бб 

то 9555 


3920 IF iz13 AND d$<>"" THEN GO 
TO 9988 


9930 IF LEN oio "^ THEN GO SUB 9 
990: 


50 Tos 
9940 IF isend OR 1=еп4+32 AND d$ 
ач" THEN” 86 TO 9980 

9950 IF icmin OR i>max OR іғехсе 


3929 BRINT AT песо LEN dS; P 
; 39%: GO TO 990 
$980 PRINT OVER i; dT Mines eot- -te 
n;z$i TO Len): RETUR 
9989 REM АЕ 
9990 ERENT, $1; e,0;" 
NTRADA INAC ibn Are 
FSRUEBE DE NUEU 
ВЕЕР 10: PAUSE 76 
3995 PriNt Ri AT O o 26528: RETU 


Desplazamiento 


Pixel a Pixel 


Una de las mejores características del Spectrum reside en sus posibilidades gráficas, 
tanto en los caracteres del código ASCII como en los UDG (gráficos definidos por el 
usuario). Instrucciones como PRINT AT permiten manipular las distintas 
posiciones de la pantalla, realizando buenos gráficos con las instrucciones PLOT y 
DRAW. Pero el mayor problema suele ser la movilidad de estos gráficos. Algunos de 
los ordenadores rivales, como es el caso del Commodore, incorporan los llamados 


Sprites, con la gran ventaja que ello supone en una buena visualización sin 
menoscabo de la rapidez de ejecución. En el Spectrum puede simularse mediante el 
movimiento carácter a carácter, suficientemente rápido pero quc da la impresión de 
imágenes que más bien “saltan” de unas posiciones a otras. 
LISTADO 1 RESUMIDO. 300 LET ros 
C800 2A 85 5С ES EB 2A O fap. TO БОВОБЕ S 
1 =! 
dB D nou Й БТЕ nene а, 
C819 0 R2 2D FE 80 38 380 Об TO aso 
2318 08 47 06 Yu 38 13 390 REM Move ball 
L31E ED SB 78 SC 18 04 4009 LET OS 
с824 ED SB 36 SC 26 00 410 LET oldysypo 
БЕГИ 5f 29 23 23 19 18 429 LET ХРОЗ =Х ОЗ exdir 
саза 25 CD 38 ðB 21 98 ? Е х 
63386 5С ES DD El CD R2 AEN Do tado ПЕН POR ная 
НЕ 25 57 ES БЕ яз 2D 430 LET хроз=о (ах; LET ха: г=ТМТ 
©848 Ба Es 52 ÉS 2i 4D MUR Son xdir 
C84E CD AA 22 Ci 47 RF 44Q LET yposeyposeudir 
Е йш PA E 
2350 90 47 29 19 FD ЕВ А HEET FERE ; LET ydir =INT 
2865 УЕ АА 7? 23 7B RE БИП RoS N Sir E 
с86с 77 DD 23 OD 20 05 455 ВЕЕР .03,30 
2872 El El 22 65 5С Сз aaco EET dzoldx AND olduzsshape«U 
PROGRAMA 2 1490 LET shapezsshape«l-4x (shapes 
R MOQTH МОЈЕ DEMO h у 
Се Вриси 
| 158 REM Load code $39 REM Batt definition 
y al efi 
Де) PEER 188999. SODE 21000 Ра 60,66,135,143,143,159, 
| 150 iis per anrs 181% рата 80,56,193,225,249,253, 
| 189 БЕТ А 226 DATA 50,125,249,241,241,225 
{рш sabe ТТЕ 
220 LET XdirsINT (RND+S+1) б 
230 LE CE Г=-ТМТ (RND+5+1) 546 DATA е 
5i ERN 
260 FOR i»USR "a" ТО USR "e" PHOCHAMA 
228 RERO $a. 138 REM Cargador 
| 298 NEXT i 280 INPUT "Direccion" ;L 


460 LET d-oldx AND oldy: 


lizó la dirección 51200 (o C800 en 
shape + USR 31000 


hexadecimal), sólo válido para el 
Spectrum de 48K. Pero puede uti- 
lizarse por el Spectrum de 16K en 
localizaciones de memoria inferio- 
res. Por ejemplo la 31000 (o 7918 
en hexadecimal). Para ello habría 
que cambiar las instrucciones 460 
y 480 del programa 2, como sigue: 


puntos o pixels, en vez de las 704 
posiciones o caracteres resultado 
de las 22 filas por 32 columnas. 

La rutina no es excesivamente 
'larga, sólo 120 bytes, y tiene la 
ventaja de poderse ubicar en cual- 
quier posición de memoria. Lógi- 
camente, siempre por encima del 
programa en BASIC y con las pre- 
cauciones necesarias si se manejan 


В К з оза 
uS 28 
91888 559 
$9383 a8 
EDD особ 
Sorau ET 
зб * ES 
Баева 2259 
3s 332 
5850353 $50 
= Ок g5 
232955 885 
Biz oH dou 
„pesse 2.85 
5 БЕ 
Ва” ВЕЕ 
dao as Ее 
aio y 
22820285 EEG 
SENARGAI Su» 
83 EZ 
за кер 
SE чЕЗ 
Зе оз 
$5 2 8 


480 ТЕТ d-xpos AND уроѕ= 


shape + USR 31000 


otras rutinas en código máquina. 


En el ejemplo que ilustra su fun- 
cionamiento con una pelota se uti- 


dentro de los límites de alta resolu- 
ción. Es decir, que se dispone de 
una combinación de 256 por 176 


е6 е pad о © o о о 

һо deo гоо о woo o ю оо а м + Di 
Dag ce 00:000 ADAD ФФ 0 ч -ю - Ф X44 $00 ш чач 0 
м - мм SS чм - 40949 + -RO OWADA афо -t чоч YA -OA м 


ex -- c f cd So od И ль ^ S0 
28100-1000. -AO DANA -AA ADIDAS RON ADO AAA -+0 - - -A -Q O 
сор О (SS OLOLO IO G9 IO г O OO OLOR Q0 10 OLOR. MAA - - BAD HA -A MIO RIO ADORNAN 
5 Ob -Od A A - - ОСО ~ 40 0 OI Of O сазан CD HIT A AAA - 
MHD O -ю -- Od ог AO - - чм RO IN O OO - - гм -- o DAR A -@ 
5:001 1091) 4 90 ченә ою 0 OL S е 00690 00 6 H0 0 HOIDQO -A чог SIDIO0 AN -0N 
QU cHOOhO Het coeno с очи чеч - чай чу Ф SIEG cda AL 
@ = «+4 = = -- = =. + - MOROS - - мм оч > o» HD. - 9 c) 04 юг 2 - o4 м od aD 
ADO ) ape pou 4-4 d DA -ONONO ЧОО dA HAE -МЮЮС A A > ADAAN 0 -A 
71010 Q4 Юе) ARAN AAN ARANA jig iran oto "tolo Did 4 OO + MPO NO EM ag re 
> ado a 


мою -ог-юзюююююн+ сг осо DO чого HOQG QUO чочок DANDO + d 
£20 QU) QEO OE QE QJ ARAN ОО ОО ГУ 90 d 4 r1 OLIO P 0010 ООО <4 єз ОЮ 401 100 40 40 QE 90 Ой 71 ОГ 16004 


тта@ттттата:ттаататааа@:т@тт@йтатттата@ттттттттттататтаа@ттттпатттаттат 


+ O60 IS (d 40 (D (9 04 «(D 1D 9 OE 0 40 (9 01 «E10 00 91 EID 10 (9E ороп HON EO Ю 901 DIO IS ОЧ ED IO эс + DOO S 
Oi CU (0 6) (0 € ++ + + IDIDAD O ID D ID ID ID ID TP P P- P- P охото Hie HO Qa c aO im eum om + 


т 
E 
т 
a 
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м 

Tiii AH HH ee eee c cct 


E 
T 
ó660060066500000000060600006500006000000060006000000006500000500008 
qi 
a 


SE о в 7 E X row 
сои al © ою ю od а - 
ш к ччю AF г ANS ко 9 - 
= - > oO ^ Я m < Загс O AN B = © 
v а 2 ^ 004 ONNAN i NON > F о еч м 
6 708 iD MA ~ әп > - 00 A Зы Е +: D o 
Z о Z > шо -eD4 9000ге OANA E аф ас Q4 м 
Ho» To Q A NADO - - - 0 +D -0 > ошно ше DD ~ 
ас о о -OG4--O00010104 -€ зомю сч 9.3 X ra т маю > 
а эхо О AMDI - -DADANOO -- 009 5 а оаа юмо 
о d =: Оэ Фо NO MA сено ся о -: О шс чз сам 
b z ш ® фо (Qd -Q - Ade AA MAA > - ©х Z ZO 2% dt~ 
я ш C м < 49 ш 0 N - аа сзая оз - ш ш: О юз 
я I o H o DO Мачо pn зао OH I IG го PANN 
* Б = Е MM OO -+ -чаючюочма N - 94 - - o t = ru о -9 -MA 
e &9 D o Pr e әср ш а эт Data ~ 
һа а о ЕЕ AOUD ddd Фозогаючгаа ө өх 4 +4 -0 N N WD 
o чи Z o DO Sum IAS HO HOO T- «10100 ө SO © Өш os AO -00 
Fo бан С ils REOR S оа ю ш> с сом 
+ баа: RIO ONNAN D. AI S 4 Ф AD 40 юч -0- 
Sd ыз eer oc > AROSANNA -our-r- o (0 30) оо. Ю DX :- 494 0 
M NON с - ONCE OI 0d Od но за OU AA AO WWNXH^ ^ ia 
оя ө vie bob PI EE 
o ЧЕ 
WOWWO ij ба оша тттттттттттттттттттт | > Abu rara arar 
A AN 
= © 
IIA ADA DUI | © --wodsOX-O DARAN IDO 
мозг © -OU FS etl S HO IDIOT O0 90164100700 | © ш наа 
ОРОО ООО QU O 0009009 RICINO | 2. г E 
5 m Е 


[| 


En el programa 3 se introduciría ` 


31000 si se tiene 16K o las 51200 
si tiene 48K. Pero no hay ningün 
problema en utilizar otras direc- 
ciones libres. Veamos esto en deta- 
Ile. 


Cómo cargar el programa 
El programa 3 carga el código 


máquina en la memoria, a partir 
de la dirección “L”, cuyo valor se 


obtiene en el INPUT de la línea 
200. 


Si tiene 48K puede colocar el 
programa en una dirección alta. 
Teclee CLEAR L, siendo “L” el 
valor de la dirección en que desee 
colocarlo menos uno, para indicar 
al BASIC que no debe utilizar di- 
recciones por encima de dicho va- 
lor. Por ejemplo, introduzca 
51199 si desea colocarlo a partir de 
la 51200. El programa lee los 
DATA y los graba con el nombre 


i 50098 5 ganon: LORD ""CODE 


REM izquie 
4 n 
de POKE 64513,22%4+3: REM abaj 


17 POKE 64512,2044: 


de "SMOOTH/COD". No se 
preocupe si no entiende muy bien 
el listado 1, si no tiene un compila- 
dor o si, simplemente le despreo- 
cupa totalmente el código máqui- 
па. Los DATA del programa 3 
contienen el código máquina para 
que pueda ver los efectos gráficos е 
incorporarlos a sus futuros progra- 
таз, aunque sea la primera vez 
que oye hablar del código máqui- 
na. 


Nose preocupe demasiado si co- 


ЕЕЕ a a a a TA AS Рона ее 
148 DRTR 71,26,119,28,44 POKE 84514,20»441: REM dere 
«Ж ВЫ" о роке н 

" 1 r 
EENET EEE pa?0 POKE 64515,20#4+2: REM arri 
‚255,71, 
152 DATA 44, 16,261,195,121 Б Бока ны 0 
154 DATA 81,79,32,20,237 25 REM 
188 DATA 91,77,258,123,214 25 POKE © 
EUER 
я 2 , : i vie 
Шон А ИЕ С „42% POKE 64519,9492: REM 114 
4 *3241: REM dere 
186 DATA 77,255,58,83,256 TI о 
168 DATA 71,197,24,2,197 28 POKE 84815,3432: REM izquie 
UPE ЕВ, à 2 i 
31, 4 na ›5*32+2: REM arr 
174 DATA 24,11,197,143,198 m er Tras 
176 DATA 32,95,48,4,122 30 POKE 64517,0 
178 DATA 195,56,67,122,230 31 RETURN 
180 DATA 248,8?,6,8,24 33 REM ------- 
182 DATA 1,20,108,26,1093 33 REM Adicional 
184 DATA 125,18,16,248,193 34 REM de 
186 DATA 16,226,204,193,18 199 REM -- --- - 
188 САТА 209,193,121,60,79 200 BORDER 
199 DATA 214,18,32.20,237 201 PRINT AT_10,10;"4" 
192 DATA 31,77,258,123,198 203 LET LEÑOTA má {ЕТ HEIGHT =4 
194 DATA 32,95,48,4,122 204 LET Y=10: LE 
196 DATA 196,5,87,237,83 205 LET DELRY*EQ 
198 DATA 77,255,148, {97 206 GO SUB 17: GO SUB 4 
200 DATA 195,144,262,88,50 228 тента 
202 DATA 255,203,39,203,39 309 PAUSE Sb. CLS 7 LIST абл 
204 DATA 203,39,203,39,203 210 LET LENGTH=1S: LET HEIGHT»5 
206 DATA 39,38,485,48,79 211 LET У=7: LET Xa10 
203 DATA 134,50,77,256,58 212 LET DELRYsI 
210 DATA 80,255,230,24,198 214 GO SUB 28: GO SUB 
212 DATA 64,50,78,265,201 $18 PAUSE a0. об TO Ele 
PROGRAMA 5 


mete algün error еп los DATA, ya 
que el programa introduce la Па- 
mada checksum o prueba de la 
suma. El valor de “с” de 13017 de 
la línea 270 corresponde a la suma 
de todos los valores contenidos en 
los DATA. No es un sistema infa- 
lible pero reduce grandemente los 
errores. Cuando aparezca el men- 
saje “Todo grabado... por si acaso” 
podrá guardar el programa. 

Si tiene 16K lo puede colocar en 
la dirección 31670. Análogamen- 
te, teclee CLEAR; es una buena 
práctica para evitar desagradables 
disgustos. 

El movimiento que puede hacer 
mediante BASIC con la instruc- 
ción 

PRINT INK 8; PAPER 8; 
OVER 1; AT yix; CHR$ C 


se sustituye ahora por una nueva 
instrucción: 


RANDOMIZE x AND у= + 
USRd 


donde “х” e “у” son las coordena- 
das horizontales y verticales, "c" 
es el código ASCII de un carácter y 
"d" es la dirección donde guardó 
la rutina. Así 


RANDOMIZE 0 AND 175265 + 
USR 64500 


colocará la letra “А” (carácter 65) 
en la esquina superior izquierda de 
la pantalla, si guardó la rutina a 
partir de la dirección 64500. 
RANDOMIZE en realidad es una 
“variable muda" que retiene el re- 
sultado de la llamada USR a códi- 
go máquina. Si se introduce en un 
programa que utilice números 
aleatorios, deberá reemplazar 
RANDOMIZE por otra variable: 


LET muda=9 AND 175265 + USR 
64500 


Por supuesto, puede utilizar va- 
riables para indicar el movimien- 
to: 


RANDOMIZE xpos + хат AND 
ypos-ydir-CODE “*” + USR 
move: 


La rutina chequea los datos in- 
troducidos antes de la USR. Si hay 
un nümero de datos distinto de 3, 
aparecerá un mensaje de error. Es 
imprescindible utilizar AND y los 


signos y “+”, tal y como se 
muestra en el ejemplo. Si utiliza 
cáleulos más complejos que la 
suma, resta, multiplicación y divi- 
sión, colóquelos entre paréntesis, 
para que puedan ser distinguidos 
perfectamente por el ordenador. 
La rutina es bastante completa 
en cuanto a la detección de errores 
se refiere, no permitiendo coorde- 
nadas inferiores a 7 (ya que cada 
carácter se compone de 8 líneas). 
Utilizando las coordenadas 0,6 se 
produce la impresión en la coorde- 
nada “у-1”. Si se da un valor me- 
nor de 7 o mayor que 175 para el 


eje “у”, se producirá el mensaje 


"Integer out of range”. En el caso 
de sobrepasar el eje "x" con valo- 
res superiores a 248, simplemente 
aparecerá porel otro extremo de la 
pantalla. Los valores decimales se 
redondcan al dígito más próximo. 


Un ejemplo vale más 
que mil palabras 


El programa 2 es un ejemplo de 
cómo utilizar esta rutina. Una pe- 
lota rebota a través de las cuatro 
paredes de su televisor a diferente 
velocidad. Se utiliza para ello la 
instrucción "LET dz" en vez de 
RANDOMIZE, para no interrum- 
pir la secuencia de generación de 


LISTADO 1: Rutina en código máquina. 


1320. ORG | 65000 
1330 [s “Fin del Stack" 
1340 [MOVERLD_ | HL, (STACK) 
1350 PUSH | HL 
1360 |; “3 números en el Stack?" 
1370 EX  |DE, 
1380 LD  |HL.(STBOT) 
1390 LD |BC,15 
1400 ADD | HL,BC 
1410 SBC | HL,DE 
1420 JR Z.FCODE 
1430 | “3 parámetros” 
1440 RST |8 
1450 DEFB | 25 
1460 | “Localiza el código del carácter” 
1470 | ЕСОБЕ CALL | POP A 
1480 | 
1490 | 
1500 $ *:128-143 bloque caracteres 
gráficos” 
1510 |F 55 gráficos definidos por el 
usuario” 
1520 СР 28 
1530 JR |C,ASCH 
1540 LD [BA 
1550 SUB |144 
1560 JR — | GBLOCK 
1570 Б 
EDSB7BSC | 1580 LD | DE.(UDGS) 
1804 1590 JR INDEX 
1600 | 
EDSB365C | 1610 | ASCII LD | DE, (CHARS) 
j 1620 [у “Localización carácter” 
2600 1630 INDEX LD |н,о 
6F 1640 LD „А 
29 1650 ADD |HLHL 
29 1660 ADD |HLHL 
29 1670 ADD |HLHL 
19 1680 ADD | HLDE 
1806 1690 JR  |GFONT 
^ 1 ; 
CD380B 1710 | BLOCK CALL | МАКЕВ 
219250 1720 LD_ | HL,BLKCH 
ES 1730 |GFONT PUSH | H 
DDE! 1740 P |IX 
1750 Б “Coordenada Y” 
CDA22D 1760 CALL | POP А 
67 1770 ID |НА 
1780 “Coordenada X” 
1790 PUSH | HL 
CDA22D 1800 CALL | РОР А 
1810 POP |HL 
6F 1820 ID [La 
ES 1830 PUSH | HL 


La imagen de la derecha muest 


que se ilustra en la imagen de 


el movimiento pixel a pixel, frente al clásico movimiento 


izquierda. 


|С5 


4р 
CDAA22 
сї 
47 


АЕ 
BO 
DD7E00 


2811 


PLINE 


SHIFT 


STORE 


“Procesar 8 líneas” 
єз 


HL 
“Siguiente línea” 
H 

HL 


“Conversión coordenadas еп H,L” 
“A la dirección en HL y А” 
BC 


BH 

CL 

PIXEL 

BC 

“Copiar biten B“ 

ВА 

"Comprobar localización 
carácter” 

A 


B 
“Lectura de FONT" 
+0) 


7.5ТОЕ! 
“Generar máscara 16 bit" 
DE.HL 


LA 
"Realización cuentas” 


“Colocar máscara en OF" 
DE.HL 
“Mezclar en pantalla” 


AC 


(HL).A 
HL 


IX 

“Contador líneas realizadas” 
NZ, PLINE 

"Q.K." 

HL 

HL 

(STACK),HL 


números aleatorios que controla el 
movimiento de la pelota. El listado 
es corto y sencillo, pero asegúrese 
de introducir comas en la línea 
330, en vez de punto y coma. 

En el código máquina siempre 
está activado OVER 1, a fin de po- 
der borrar un carácter sin destruir 
la imagen que se encuentre "de- 
trás”. Los caracteres toman cl co- 
lor de INK, evitándose innecesa- 
rias complicaciones para reponer 
los carácteres superpuestos. 

El Spectrum normalmente utili- 
za los códigos 165 a 255 para las 
palabras de comando clave, como 
THEN, PRINT... etc. No hay nin- 
guna necesidad de utilizar estos có- 
digos por pantalla, ya que esta ru- 
tina permite definir 91 caracteres 
gráficos. Junto con los 21 estándar, 
con ello se logra la increíble cifra 
de 122 caracteres. Estos nuevos ca- 
racteres se encuentran ubicados a 
continuación de los clásicos, lo 
que significa que tendrá que “ex- 
pandir” el área de UDG antes de 
definir nuevos caracteres. Para 
48K puede hacerlo mediante la 
instrucción 


CLEAR 64559 : POKE 23675, 48 
: POKE 23676, 252 


con ello se permite que la variable 
CHARS pueda trabajar con 728 
bytes adicionales (91 x 8). Para 
16K también se puede lograr, me- 
diante 


CLEAR 31669 : POKE 23675, 48 
: POKE 23676, 124 


Después, ya podrá definir sus 
caracteres gráficos de la “a” a la 
“u” e incluso por encima de este 
carácter. Los carácteres adiciona- 
les también siguen en la clásica su- 
cesión de 8 bytes. Ya que el carác- 
ter gráfico “a” representa el código 
144, se puede encontrar la defini- 
ción del carácter con el código 
“N”, mediante la siguiente expre- 
sión general: 


PRINT USR “a” + 8 * (N-144) 


Fíjese еп 10$ trucos 


Si dispone de un compilador o 
de un cargador Assembler, puede 
introducir el programa 1. Pero en 
cualquier caso le servirá para ver 


а 


algunos interesantes trucos de pro- 
gramación en código máquina. 

Comienza el listado con la defi- 
nición de algunas constantes que 
se utilizarán con posterioridad. 
Colocándolas al inicio del progra- 
ma podrán ser comprobadas y al- 
teradas fácilmente. Además, ello 
hace que el programa esté mejor 
estructurado y sea más fácil de 
leer. Se utilizarán tres rutinas 
ROM para acortar la longitud del 
programa y no complicarlo en ex- 
ceso. 

Existen tres secciones claramen- 
te diferenciadas. Primero los pará- 
metros (las coordenadas y el códi- 
go del carácter). Segundo, la ubica- 
ción del carácter definido; y final- 
mente la ubicación o impresión 
del carácter en pantalla. El che- 
queo de parámetros se evalúa por 
el Spectrum de forma simple, simi- 
lar a la expresión en BASIC. 


PRINT 2+3 *4 


realizando la multiplicación antes 
de la suma. Por ello el resultado es 
14 (2+ 12) y no 20 (5 x4). 

Otra de las características del 
programa es la forma en que apro- 
vecha el modo de operar del BA- 
SIC, obteniendo previamente el 
valor de las coordenadas y del có- 
digo del carácter, antes de realizar 
la llamada a código máquina 
(USR). Estos tres datos se almace- 
nan en un s/ack temporal durante 
la llamada USR. Así se logra una 
fácil lectura mediante BASIC para 
realizar las manipulaciones nece- 
sarias en código máquina antes de 
volver de nuevo al BASIC. Un 
buen método a tener en cuenta a la 
hora de introducir datos, que me- 
diante BASIC se puede realizar 
con gran facilidad, sin tener que 
recurrir a los farragosos manejos 
de PEEK y POKE. 

Repasemos el proceso 


RANDOMIZE x AND у=с +USR 
a 


Mediante BASIC se realiza pri- 
mero la suma, después la compa- 
ración de igualdad y, finalmente, 


la expresión X AND Y. (Ver ma- 
nual del Spectrum, libro pequeño, 
pág. 12). 

El stack al que hacíamos alu- 
sión, sirve para almacenar estos 
valores, utilizando para ello dos 
variables del sistema. Las líneas 
comprendidas entre la 1340 y 
1450, se utilizan para verificar que 
este stack contiene 15 bytes en el 
momento en que se va a ejecutar la 
instrucción USR, es decir, que han 
sido almacenados los tres valores 
(5 bytes por valor). Si no están es- 
tos datos, la rutina dará el mensaje 
de error, generado por las líneas 
1440 y 1450. 


Los caracteres han de pásar 
un examen muy riguroso... 


La пита ROM llamada 
POP-A, se utiliza para colocar un 
número del stack en el registro 
“A”, Las líneas 1470 a 1560 reco- 
gen el código del carácter para co- 
locarlo el último en el stack. Des- 
pués se comprueba si se trata de un 
carácter gráfico, un carácter gráfi- 
co definido por el usuario o un ca- 
rácter del código ASCII. 

Los caracteres gráficos estándar 
no están definidos en la ROM, ge- 
nerándose por la rutina MAKEB 
que coloca el carácter especificado 
en el registro "B", dirección 
BLKCH. En el caso de ser un códi- 
go ASCII o UDG, la rutina locali- 
та el comienzo de la dirección en 
las variables del sistema (UDGS 
apunta hacia los gráficos definidos 
y CHARS hacia los símbolos AS- 
Cm. 

El código se multiplica por 8 (ya 
que cada definición requiere 8 by- 
tes) y la dirección es el resultado de 
añadir la dirección inicial al dato 
que da esta multiplicación. 
GFONT coloca la dirección de di- 
cho carácter en el registro IX para 
mayor seguridad. 

POP. A se utiliza otras dos veces 
para tomar los valores de los ejes X 
€ Y (cootdenadas) y conocer el lu- 
gar de la impresión de datos. El bu- 


cle PLINE posiciona el carácter en 
la memoria de video, una línea 
cada vez, usando el registro C para 
contar las líneas. 

Cada línea de impresión del 
Spectrum corresponde a 32 bytes 
de memoria de video. El contenido 
de esta memoria determina lo que 
se va a imprimir. La rutina clásica 
PRINT utiliza un byte por carácter 
en cada línea, lo que quiere decir 
que los caracteres no pueden im- 
primirse una parte en un byte y el 
resto en el siguiente. Por ello se 
producen los "saltos" carácter a 
carácter de que hablábamos al ini- 
cio de este artículo. Pero no es esto 
lo que ocurre con esta rutina, que 
permite guardar la información en 
dos bytes. El código del carácter se 
coloca al final del registro HL para 
manipularlos entre H y L. La ins- 
trucción ADD HL,HL permite el 
resto: cada vez que se afiade el va- 
lor binario a sí mismo, se desplaza 
el contenido del registro hacia la 
izquierda, debido a que cada co- 
lumna tiene dos veces el valor de 
uno de su derecha. 

Con STORE y XOR se mezclan 
las líneas en pantalla. El programa 
itera en el bucle PLINE hasta que 
las ocho líneas han sido reimpre- 
sas. 


Ahora es su turno 


Para finalizar con este tema, le 
vamos а proponer un cambio de 
papeles. Los programas 4 y 5 son 
independientes de los anteriores e 
ilustran un efecto similar. Primero 
habrá de introducir el programa 4 
para cargar el código máquina y 
luego podrá visualizar sus sorpren- 
dentes efectos con el programa 5. 
Le aconsejamos que no se lo pierda 
y que sea usted quien comente este 
programa en un próximo nümero. 
¿Se atreve a escribirnos un folio 
dándonos su opinión? Sortearemos 
diversos juegos entre todas las соп- 
testaciones recibidas y un premio 
Чг 6.000 ptas. para la carta que pu- 
bliquemos. Esperamos sus cartas. 


La ROM incorpora una amplia 
variedad de rutinas. El uso adecua- 
do de las mismas permitirá un im- 
portante ahorro de tiempo y me- 
moria. Si quiere aprovechar al má- 
ximo su Spectrum, lo mejor será 
entender perfectamente el lenguaje 
ensamblador del Chip Z30. Pero si 
todavía no está familiarizado con 
los detalles internos del Spectrum, 
todavía está a tiempo para benefi- 
ciarse de las rutinas que existen en 
la ROM 

Utilizando llamadas (CALLS) a 
la ROM del Spectrum de 16 Khy- 
tes del interface 1. podrá obtener 
unos resultados sorprendentes. 
Veamos cómo utilizar las variables 
del sistema en nuestro beneficio. 

Podrá ampliar la ROM o la 
RAM (si tiene 16 Kbytes) indistin- 
tamente. Pero esto son palabras 
mayores, y este breve artículo no 
pretende entrar en esta materia 
que por sí sola llenaría un libro. 

Lo que si pretendemos es darle 
suficiente información, especial- 
mente para los "nuevos programa- 
dores" que deseen aprovecharse de 
las ventajas del código máquina, 
sin tener por ello que dominar este 
lenguaje. 

A menos que le agrade la idea de 
introducir el código máquina en 
códigos mediante los POKE co- 
rrespondientes, le aconsejamos 
utilice un compilador (y puestos a 
recomendar, actualmente el más 
completo es el de Hisoft). 


Llamadas (CALLS) de interés 


Impresión: RST 16 (10H) 

El carácter cuyo código se en- 
cuentra en el registro А será im- 
preso en el canal que se encuentre 
abierto en ese momento. También 
se puede utilizar en los códigos de 
impresión, como TAB, INK, 
OVER, etcétera. 

La apertura y cerrado de los ca- 
nales para la utilización de esta va- 
riable se realiza mediante la Пата- 
da CALL 5633 (1601H). De esta 
forma se consigue la salida del 


RST 16 (10H) al canal especifica- 
do en el registro A. Normalmente 
A 22 es el código de impresión por 
pantalla, A = 3 utiliza la impreso- 
га, y А = l imprime en la parte in- 
ferior de la pantalla. También se 
pueden utilizar otros canales para 
la comunicación con los microdri- 
ves, la red de área local (LOCAL 
AREA NETWORK) u otros peri- 
féricos. 

También podría utilizar un ca- 


nal para controlar un interface con 
el Kempston u otros interfaces 
Centronics. 


Entérese si se presiona “BREAK”: 
CALL 3020 (1F54H) 

Esta llamada devuelve el carry 
flag activado si no se ha presiona- 
do BREAK o desactivado si se pre- 
sionó. Observe que esta llamada 
verifica si CAPS SHIFT y BREAK 
fueron presionados de forma si- 


) 


E M n. {е 
SS 
L 


multánea. Si sólo desea chequear 
el uso de BREAK, puede utilizar: 


LD A, 7ЕН 

IN А (ЕЕН) 
RRA 

JP NC,PRESSED 


Imprimiendo mediante el RST 
16 (10H): CALL 8545 (DD9H) 

Para utilizar esta rutina el regis- 
tro B debe tener el número de línea 
de la pantalla donde se desea reali- 
zar la impresión. Por ejemplo, B 
224 indicaría la última línea de la 
pantalla, В = 1, análogamente, se- 
ría el inicio de la pantalla. 

Desgraciadamente no pueden 
utilizarse las lineas 23 y 24, por lo 
que tendría que fijar en 1 el canal 
de salida RST 16 (10H), y utilizar 
las dos líneas superiores del final 
de la pantalla. 

С es 33 menos el número de la 
columna. Así, С = 33 significa la 
primera columna de la izquierda y 
C =2 la primera columna de la de- 
recha. Esta llamada automática- 
mente actualiza las variables del 
sistema para las distintas posicio- 
nes de PRINT en las que el canal 


que se utiliza se activa mediante la 
llamada 5633 (1601H). Tenga cui- 
dado al utilizar la última línea de 
la pantalla (PAPER), ya que si im- 
prime en el último carácter apare- 
cerá el mensaje SCROLL. Esto 
conlleva una vuelta al BASIC si la 
contestación es “n” o BREAK. 

Además, cualquier intento de 
imprimir en el canal 1 causará el 
SCROLL de la parte inferior de la 
pantalla (BORDER) cuando ser 
haya llenado el espacio que utiliza 
la variable DF 52 (23659). Esto 
puede ocasionar algunas sorpresas. 
Obviamente si utiliza la impresora 
no necesita especificar un código 
de línea, por lo que no utilizará el 
registro B. 


Limpiando la pantalla: 
CALL 3438 (DGEH) 

Con esta llamada limpiará toda 
la pantalla, eliminándose la infor- 
mación sobre los atributos de la 
variable ATTR P para el PAPER 
y BOARDCR para el BORDER 
(23693 y 23624 respectivamente). 
Le remitimos al manual para 
mayor información. 


Limpiando la parte inferior 
de la pantalla (BORDER): 
CALL 3438 (D6EH) 
Especialmente ütil para la entra- 
da de datos, con esta llamada se 
elimina la información existente 
en el BORDER. Observe que las 
dos rutinas anteriores inicializan a 
2 la variable DF 52 y pueden alte- 
rar el canal utilizado por RST 16 
(10H), de manera que esto habrá 


que reinicializarlo. Е 


SCROLL de la pantalla: 
CALL 3582 (DFEH) 

Esta llamada sólo realiza el 
SCROLL de una línea, pero no 
afecta a la posición de impresión, 
por lo que si continuamente impri- 
me en la misma linea y realiza el 
SCROLL al final de cada línea, le 
parecerá estar escribiendo en una 
máquina de escribir, escribiendo 
en la última línea y viendo cómo 
se desplaza el texto hacia arriba a 
medida que vaya escribiendo. 


Dibujando en la pantalla: 
CALL 8933 (22ESH) 

Mediante esta llamada podrá 
realizar el PLOT del punto direc- 
cionado por los registros B (Y de D 
a 175) y C (X de D a 255). Los co- 
lores correspondientes a INK y 
PAPER pueden activarse previa- 
mente cargando en las variables 
del sistema los atributos necesa- 
rios. 

OVER 1 se puede activar me- 
diante SET ОТҮ + 87) o desacti- 
var mediante RES O,(IY + 87), y se 
puede eliminar cualquier punto 
con SET 2.(IY + 87). Observe que 
no hay ningún problema en reali- 
zar PLOTS en el BORDER, lo 
cual puede evitarse mediante la 
llamada 5633 (1601H). 

La próxima vez, antes de sentar- 
se en su ordenador con un enorme 
listado, piense en la posibilidad de 
utilizar lo ya hecho, y la ROM 
conserva gran cantidad de rutinas, 
algunas de las cuales pueden utili- 
zarse directamente sin ningún pro- 
blema. Con un poco de entrena- 
miento verá cómo la programa- 
ción quedará reducida a la utiliza- 
ción de rutinas o a la realización 
de las mismas, en el peor de los ca- 
505. 


Construya 


supropio 


Interface Centronics 


no de los problemas que se 
\ presenta a todo aquel que 

desea acoplar una impre- 
ИШЕН sora a un ordenador es el 

de la conexión de ambos 
aparatos. Algunos ordenadores in- 
corporan una salida para este fin. 
Sin embargo, este no es el caso del 
ZX-Spectrum, con lo cual, si que- 
remos adaptar dicho periférico a 
nuestro ordenador, estamos obli- 
gados a usar un "interface", 

Para imprimir cierto mensaje en 
papel (o para escribir información 
en disco, establecer comunicación 
con un ordenador auxiliar...) nece- 
sitamos dialogar de algün modo 
con el aparato que hay al otro lado 


Mi ode dedil vcr 


de la línea. Diferentes plantea- 
mientos del problema han llevado 
a soluciones también diferentes. 
Básicamente, todos coinciden en 
asignar un código a cada carácter. 
También serán necesarios códigos 
de control, como por ejemplo, la 
orden de efectuar un retorno del 
carro o de saltar a la siguiente pági- 
na. 

Lo que diferencia a unos siste- 
mas de otros son las claves adopta- 
das y las maneras de transmitir la 
información. En cuanto al primer 
problema, el código más aceptado 
es el ASCII (American Standar 
Code for Information Interchange, 
código estándar americano para el 


intercambio de información), que 
como todos los lectores saben, es el 
que usa el Spectrum (con ligeras 
variaciones). 

En cuanto a las maneras de rea- 
lizar la información, existen dos 
opciones, la transmisión SERIE y 
PARALELO. 

La transmisión SERIE hace uso 
de un ünico cable o línea. La infor- 
mación se transfiere con los bits 
puestos en “fila india" a una velo- 
Cidad constante conocida como 
"baud rate", que se mide en bau- 
dios (bits/segundo). Un ejemplo 
claro de transmisión en serie lo 
constituye el almacenamiento en 
cintas de cassette. El estándar más 


9 
2 


conocido lo constituye el famo- 
so RS-232 (no confundir con R2- 
D2). 

La información en PARALELO 
es más intuitiva a primera vista, ya 
que transmite las palabras de 8 bits 
(bytes и octetos) simultáneamente 
por 8 líneas independientes (de 
aquí el nombre). Además, hace uso 
de otras líneas especiales de con- 
trol (АСК y STROBE, cuya mi- 
sión se explicará más adelante). En 
general, este es el sistema preferi- 
do, ya que es más flexible —no es 
síncrono, es decir. la información 
no está codificada en el tiempo, 
como ocurre con el tipo SERIE—, 
y menos sujeta a error, El CEN- 


TRONICS es sin duda el estándar 
más difundido. 

Para comprender cómo hemos 
resuelto el problema, vamos a ex- 
plicar cómo se realiza el transvase 
de información. 

— En primer lugar el ordenador 
informa a nuestro "interface" del 
código a enviar. El "interface" en- 
tonces mantiene dicha informa- 
ción en las líneas de datos. 

— Este es el momento de infor- 
mar a nuestra impresora de que la 
información está disponible en el 
bus. Para ello se activa la línea 
STROBE. Entonces el periférico 
lee la información y opera con ella 
segün su condición. 


COMPONENTES 
RESISTENCIAS 
RLR2 3k3 
CONDENSADORES 
C1,2,3 — 10псегаписа 
SEMICONDUCTORES 
ІСІ 741530 
1C2,3 74LS75 
IC4 741511 
ICs 741500 
IC6 74LS126 
1С7 741.514 
1C8 7805 


NEN PROGRAMA 1 

RES 0001 eH он 
RRES 0005 ; BAUTINA + 
BREA 00003 } ESZÓN ++ 
8RE4 00004 ный 
BAE4 00005 

E 00906 ORG 50000 
6350 0007 

Casa ОЗЕР 00005 PRINT OUT (258),A 
0362 3EB0 00009 о р 10000000 
6354 ОЗОЕ 00010 шт (229, 
6366 DBDF 00011 LOOP IN Я, 135) 
356 ESUL Qld AND 1 

C3SA 28FA 0013 ЈА. 2,LO0P 
6855 co 00014 ВЕТ 

90000 TOTAL ERRORS 

LOOP C358 

PRINT 6358 

ПИШИ PROGRAMA 2 

OUT ава: бот 

18:8 СЫТ да 223; инт (b 
72) THEN 59 

1020 RETURN 

ШЕШ PROGRAMA 3 n 
100 LET Ява" 

ísta dedicada 

R$ 10: REM CH 

de сирге 

110 FOR Та. 

ОЕ AGD: G 

120 GO TO 

1000 OUT 258, 

1210 LET baIN 

78) THEN GO T 

1020 RETURN 


ШЕШ PROGRAMA 4 


7808 RESTORE 7001 
70281 DATA 55,129,92,214,164,71 
949,13 5,430; 188:38 435260. 18 


а 
ЖЕН юн? КОТ =#3531: FOR ¡ÑRUT TO 


RUT+19: READ D: POKE I,D: NEXT 


D DER FN PiU) sPÉEK U«gEBAPEEK 
+ 
7020 бата ОЕ EPRIN 785 


70: REI pogau LPR NT , TOKEN 
70 ІМ um de COLUMNAS ( 
2] "SMS: ir" Ms THEN LET Méx" 
7059 LET MAXLaURL Ма: IF MAXL>80 
THEN GO TO 7040 

7109 FOR NaFN Р (23635) TO FN Pt 
3627)-1: DIM B&í(4): LET LONG»1 
7110 LET NUMs2SS4PEEK М+РЕЕК (N+ 
1): LET AS=STRS_NUM: LET (5-LE 
№ AS TO 4)aR$: IF NUM»»700Q HEIN 
МОМ < а7320 THEN СЕТ NaN43«PEEK 
+2) *a5B %РЕЕК (N+3): NEXT N: бев 
1,40: STOP 

7120 FOR Jml TO 4: LET ACODE p 
(Y): 60 SUB LPRINT: NEXT J: LE 
B»CODE " ": GO SUB LPRINT 

7130 LET eH 

71358 LET Я=РЕЕК N 

7140 IF А=13 THEN LET Aal: GO 3 
UB LPRINT: NEXT М: STOP 

7150 IF Au14 THEN LET NaN45: GO 
ТО 7135 

7160 LET RSasCHRS A: IF Aga" OR " 
OR Я$а" AND " $e > бр "COR 
nesi STEP " OR Aa” TO " OR Afa 
"THEN " THEN LET RaCODE " " о 
SUB LPRINT: LET A=CODE R$ 

7170 IF А›154 THEN GO SUB TOKEN: 
СЕТ Мам+1: GO TO 7135 

7180 IF А›31 THEN GO SUB LPRINT 
7199 LET Мам: TO 7135 

7200 REM 

7218 PRIN 43% (9а10));: G 
o SUB 7398: IF Am10 THEN RETURN 
7220 LET LONGsLONG*1: IF LONG>MA 
XL THEN LET As10: GO SUB 7398: L 
ET LONGx7: FOR Jx1 TO LONG-1: LE 

т RaCODE " ": GO SUB 7300: NEXT 
7238 RETU 

7250 REM 

7258 POKE ] : NI 

7250 POKE 23681,8: LET IaUSR RUT 
7280 LET Я=РЕЕК I: LET I=I+1: ТР 
Я› 127 THEN LET RHaR-1a8 SUB 
LPRINT: LET AsCODE " " UB L 
PRINT: RETURN 


— Cuando зе acaba de proce- 
sarla (almacenarla o cumplirla —si 
se le ordena imprimir una línea de 
texto, por ejemplo—), activa la li- 
nea de АСК (aknowledge, recono- 
cimiento o conformidad) para ha- 
cer saber al ordenador que la ha re- 
cibido y que puede mandar más 
información. 


Planteemos las especificaciones 
del “interface” que queremos dise- 
йаг: 


— Deberá ser capaz de memori- 
zar los datos que le envía el orde- 
nador principal (Host Computer, 
en la literatura inglesa). 


— Deberá transmitir, cuando se 
le ordene, un pulso de STROBE. 


— Será capaz de muestrear en 
todo momento la línea ACK y de 
estar dispuesto a informar al orde- 
nador de si se ha recibido confir- 
mación o no. También debe haber 
alguna forma de hacer volver al re- 
poso este indicador, una vez que se 
ha leído y estamos preparados para 
enviar más datos. 


— Por ültimo, lo que es más im- 
portante, hemos de coordinar to- 
das estas funciones para hacer po- 
sible un manejo racional del apa- 
rato. El diagrama de bloques del 
circuito puede verse en la figura 1. 


El sistema adoptado para el in- 
tercambio de información ha sido 
el lectura/escritura en puertos de 
entrada/salida. Las razones de di- 
cha elección se basan en que este 
es, con diferencia, el sistema más 
sencillo y que se puede usar desde 
el BASIC. 

En la figura 2 se muestran los 
cronogramas de los ciclos de entra- 
da/salida. NOTA: Muchas de las 
líneas de control del Z-80 usan ló- 
gica negativa, esto es, el estado ac- 
tivo corresponde al'0 lógico. Esto 
se indica colocando una barra so- 
bre el nombre asignado a la línea. 
Esto significa que si, por ejemplo. la 
línea WR (Write, escritura) está a 0, 


7290 GO SUB LPRINT: GO TO 7280 CB51 
7380 OUT &55, А; OUT 223,120 CBS1 3E7F 
Huh Rue быта А 
7320 RETURN cese DO 
8 
РКОСКАМА 5 ELM 
5 CBS? 
atal 90001 ; nee CB58 118205 
BE41 DODOZ ; 444% COPY RARE СВ5В 0504 
BE41 60003 ; ANAREURAAAARACALARAR 0850 1A 
3E41 $0904 T CBSE CD720B 
5Е41 00005 ; i Luis M. BRUGRROLRS СВ61 13 
3E41 00006 СВ6г 1979 
8Е41 00907 CB54 01 
DUDA 00008 LF EQU 10 СВёБ 
ВЕ41 0009 CBe5 0D 
3E41 $0010 ORG 52000 CB66 2059 
6826 00011 5868 3E07 
CB20 217FCB 00012 LO HL,DATAA СВЕЯ 84 
CB23 0607 00013 Lo à CBB 67 
Соко 7E 00014 INIC LD Я, НЫ) GBBC SESS 
CBeb CD7aCB 90815 GALL PRINT BGE RC 
0829 23 00815 INC HL CBF C6 
CB2A 10F9 $0817 DJN?2 INIC 6870 1850 
CBRC 00018 CB?2 
CBac 210048 00019 LO ны, 4000 CB?2 
CBF 0E08 00920 LOOP4 LD 5,08 CB?2 D3FF 
CB31 1620 $0021 LOOPJE LD. 0,32 CB74 3E89 
CB33 ES 0ué22 LOOP3 PUSH HL 
CB34 0608 00023 LO B,08 CB76 D3DF 
CB36 09 00824 LOOPl EXX 0878 ОВОЕ 
СВЗ? El $0025 РОР HL CB?A ЕБ ФА 
2838 ES 00025 PUSH HL CB?C 26РА 
CB39 0608 00027 LO B,08 СВ?Е C9 
CB3B CBOG $0628 LOOP2 RLC (ML) CB? 
CB3D 17 00029 RLA CB?F М 
СВЗЕ 24 00930 INC cB82 
СВЭҒ 10FA 00031 DJN2 LOOP2 
6841 CD720B 00032 CALL PRINT 
6844 09 00033 EXX DATAL 
С845 10EF 99034 DJN2 LOOPl ойтаг 
6847 0035 GRAF 
СВ47 El 009036 POP HL INIC 
5845 23 El INC HL LF 
5849 15 00038 DEC D Coop 
CB4n 20E7 00039 JR NZ,LOOP3 LOOP1 
CB4C 004b LOOPZ 
CBAC ЗЕФА $0041. LO ALF LOOP3 
CB4E CD7aCB 00042 CRLL PRINT LOOPSB 
2851. $0943 LO0P4 
CBS1 00844 ¡Volver a BASIC al PRINT 


НЫ ка pee 


009. A, ?Fh 
00245 А A; (280) 
98048 RRA \ 
90049 RET NC 
0950 f 7 
00051 ¡Introducir codigo 
00052 ¡para graficos 

0863 PUSM DE 
90054 LO  DE,DATR 
90955 LO B4 
00058 GRAF LD Й, (DE) 
00957 CALL PRINT 
20058 INC 

00059 DJN2 СААР 
006) РОР DE 
0051 

20062 DEC C 

063 JR NZ,LOOP3B 
00064 р m? 
00865 ROO Ян 
90065 LD ЮА 
$0067 LD R88 
90068 XOR H 
90069 RET 2 
00070 JR (орд 
09071 

00072 

93073 PRINT OyT (289) 
00074 LB p 
00975 ойт шз я 
90076 LOOP IN Я, (223) 
00077 ямо 1 
08078 JR. 2,L00P 
90879 АЕТ 


Ern DRTRl DEFB 27,85,8 


1848001 00052 DATAZ ОЕРВ 27,75,0,1 


@@фдф TOTAL ERRORS 


se está realizando la operación de 
escritura. Para ser más claros, se ha 
optado por usar todas las funcio- 
nes con lógica positiva. Conse- 
cuentemente, los valores reales de 
tensión serán los inversos. 

El lenguaje Ensamblador del 
Z-80 dispone de dos instrucciones 
muy ütiles.para nuestros propó- 


D&cotisiCAbOR. 


sitos. Son OUT (п), А e IN A.(n). 
OUT (n).A pone el valor den en 
la parte baja del bus de direcciones 
y el contenido del Acumulador en 
la parte alta. El bus de datos mues- 
tra también el valor del registro A. 
IN A.(n) sigue la misma pauta 
en cuanto al bus de direcciones, 
pero al acabar la instrucción el re- 


gistro А guarda una copia del dato 
recogido en el bus (de datos, lógi- 
camente). 

El decodificador muestra las lí- 
neas A0-A4, A6 y A7. Si éstas to- 
man una cierta disposición, sólo 
una, la salida del decodificador, 
pasará a estado lógico "1". De 
acuerdo con el diagrama de blo- 


| за 


E 


BERBERRE 


ques de la línea OV (Operación 
Válida), se mostrará activa al reali- 
zar un ciclo de lectura o escritura 
en una dirección válida, tal como 
se ve en la figura 2. La línea restan- 
te, la A5, nos ofrece un grado de li- 
bertad. En nuestro caso, el valor 
del bus de direcciones que recono- 
ce el decodificador, es 11X 11111. 


(La X significa que el estado del bit 
5 es indiferente). Consecuente- 


mente, los puestos válidos serán el 
1101 1111 (DF en hexadecimal, 
223 en decimal), 1111 1111 (FFh, 
255). 

El hecho de que puedan reali- 
zarse lecturas y escrituras nos ofre- 
ce otro grado de libertad, pudiendo 


realizar un máximo de 4 funciones 
diferentes (escritura en DF, escri- 
tura en FF, lectura en DF, lectura 
en FF). Sólo se hará uso de tres de 
estas funciones: 

— Siescribimos en el puerto FF 
(hacemos OUT (FFH),A), la salida 
de la puerta AND,A se pondrá a 
“1”, La entrada ENABLE de latch 


(habilitación de entrada) se activa, 
cargando en los latches la informa- 
ción presente en el bus de datos 
(esto es, la información almacena- 
da en el registro A). Las salidas del 
latch mantendrán dicho valor has- 
ta que se repita el ciclo. También 
se pone a 0 el biestable (se activa 1а 
entrada RESET) que guarda la in- 
formación de АСК. Así está dis- 
puesto para detectar el pulso de 
conformidad. 

— Al escribir en DF (OUT 
(DFh).A) si el bit 7 del bus de datos 
está a 1, la salida de la puerta B 
pasa al estado lógico alto. De este 
modo, se envía a la impresora el 
pulso de STROBE. La duración de 
este pulso, como se deduce del dia- 
grama de bloques y de cronogra- 
ma, abarca poco más de dos ciclos 
de reloj. Como el Spectrum fun- 
ciona a 3,5 MHz, resulta una lon- 
gitud de poco más de 600 nS, sien- 
do suficiente para la mayor parte 
de las impresoras, que necesitan 
un pulso mínimo de 500 nS. 

— La lectua de DF (IN 
ADFh)) activa el buffet triestado 
D. transmitiendo al Биз de datos el 
valor del biestable. Para saber si se 
ha recibido la señal de АСК, basta 
comprobar el estado de este bit al 


leer el puerto. Este flip-flop es del 
tipo S-R, de modo que cuando se 
pone en alto la entrada S, la salida 
se mantiene en “1” hasta que se 
activa la línea de Reset. 

El circuito definitivo (figura 3), 
sólo se diferencia del diagrama de 
bloques en las modificaciones al 
hecho de que todas las líneas de 
control usan lógica negativa. 

Los componentes son muy co- 
munes, sin embargo, últimamente 
se han observado problemas en la 
adquisición de circuitos TTL. Si 
no fuera posible conseguir la ver- 
sión LS, de bajo consumo y alta 
velocidad, se podrá usar la versión 
estándar. Solamente recomendar 
cuidado y limpieza en el montaje. 


Programas: 


A continuación se describen al- 
gunos programas en BASIC y En- 
samblador necesarios para usar el 
interface. Para comprenderlos no 
es necesario más que haber com- 
prendido los párrafos anteriores. 
Todos han sido escritos para una 
EPSON MX-70, pero funcionan 
también con otros modelos de im- 
presoras. 


El programa en Ensamblador 
(programa 1) es claramente más 
veloz y resulta de uso obligado 
cuando ha de imprimirse gran can- 
tidad de información. Ha de tener- 
se en cuenta que el programa no 
puede pararse, de modo que si la 
impresora está desenchufada, no 
tenemos control sobre el teclado. 

El programa en BASIC (2), es de 
uso inmediato y debe emplearse en 
programas sencillos donde la velo- 
cidad no sea un factor importante. 
El programa 3 сз un ejemplo del 
uso del 2, donde se imprime un 
mensaje. 

También se incluye un progra- 
ma que permite (4) hacer listados 
en la impresora (la función LIST 
no puede emplearse). Se ha apro- 
vechado esta oportunidad para ha- 
cer listados más legibles que en 
pantalla. El programa a listar no 
debe tener ninguna línea entre 
7000 y 7320. Se cargará haciendo 
un MERGE. Presenta un grave 
problema: su lentitud. 

Por ültimo se indica un progra- 
ma (5) en Ensamblador, que per- 
mite copiar gráficos en la impreso- 
ra. 


Luis Miguel 


Figura 7. 
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Ejemplo de impresión gráfica y texto en la EPSON МХ-70. 
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NECESITAMOS 


* PROGRAMADORES CODIGO 
MAQUINA CON DOMINIO DEL 
Z-80 Y 66502. 

® FANATICOS ROMPETECLA- 


IMPORTACION Y 
VENTA DIRECTA 


DOS DE COMMODORE-64. 
ANUNCIESE e REPRESENTANTES PARA TO- 
DA ESPAÑA (EXCELENTES СО- 


2Х81 1K 11.500, ptas 

MISIONES). SPECTRUM 48K 36.900. ptas 

por Dirigirse por escrito adjuntando MICRODRIVE 14.500, ptas 
historial y pretensiones económicas а: INTERFACE 1 14.500, ptas 

VENTAMATIC Dpto. Personal CARTUCHO 1.400 ptas 

MODULOS C/ Córcega, 89 08029 BARCELONA. QL 128K 110.000,ptas 


Envios contra reembolso 


MADRID 
(91) 73396 62 

BARCELONA 
(93) 3014700 


Seis meses de garantía 
Servicio de reparación 


Tel. 241 55 18 Barcelona 
(93) 726 04 83 Sabadell 


wkk 


COMPUTER DISKONT 
Plaza Blasco de Garay 17, 1.2 
08004 BARCELONA 


BOUTIQUE INFORMATICA 
* Ordenadores Personales, 

* Micro-ordenadores de gestión. 
Todas las novedades en: 
Programas. - Periféricos - libros 
(nacionales y de importación) 


Para: Spectrum - Dragón - Base 64 
Spectravideo - Oric - Commodore, etc. 
C/ San Vicente, 53. ALICANTE. Tel. (865) 21 55 56. 


SUSCRIBASE A | 


(12 NUMEROS) 
TARIFA DE PRECIOS DE SUSCRIPCION | 


CORREO CORREO CORREO CORREO 
ORDINARIO CERTIFICADO AEREO AEREO-CERTIF 
PTAS $ PTAS $ PTAS $ PTAS $ 
ESPANA . 3.000 21! 3273 — 23 | 30088 120 |, 3333. 24 


EUROPA, MARRUECOS, TUNEZ 
TURQUIA, ARGELIA Y CHIPRE. | 3.456 25 | 4.272 31 | 3.600 26| 4418 31 
COSTA RICA, CUBA, CHILE. PA- 


RAGUAY Y REP. DOMINICANA. | 3,396 24| 4212 30 | 4.164 30 | 4.980 36 


CARE DA AMO MERE 3.264 23 | 4080 29 | 3149 22| 3.965 28 
Бае Кее | 3264 23] 3.540 25 | 3.775 27| 4.050 29 


3,456 25 4.272 31 4.224 30 5.040 36 


"ба = шы шы шы шш шыш шш шш шеш ви шш теш пыш аа шшш шыш ишш тшш шыш ви шш шш шш шш ша | 


CUPON DE PEDIDO ' 


Recorte y envie este cupón а EDISA. Lopez de Hoyos,141- 28002 -MADRID | 


El importe lo абопаге: POR CHEQUE С CONTRA REEMBOLSO в 
CON TARJETA DE CREDITO с American Express O Visa O Interbank O 


Nomero de mi Tarjetas TO ГРЕЕТ ГЕ] ње ao caduciaad: — — — — 
NOMBRE = 

DIRECCION 
CIUDAD — DP. PROVINCIA > = 


Saque más 
rendimiento 


a su Microdrive 


unque no pueda competir 
As los tradicionales siste- 

mas de almacenamiento de 
EN datos, el microdrive repre- 

senta sin duda alguna un 
gran avance en la obtención de 
nuevas y más baratas unidades de 
almacenamiento. Si ya dispone del 
Interface 1, una unidad adicional 
(recuerde que puede llegar a co- 
nectar 8 unidades simultáneamen- 
te) le supone un desembolso de 
19.000 ptas., sensiblemente supe- 
rior a las 50 libras del mercado in- 
glés, pero un buen precio si se 
compara con la oferta de otros or- 
denadores. 

Veamos qué es lo que compra y 
qué puede hacer con ello. Para 
esto, como hacíamos en el número 
anterior, compararemos el micro- 


drive con el clásico sistema de al- 
macenamiento de los home com- 
puters: el cassette. La razón por la 
que el cassette no es una buena so- 
lución es sencillamente que no fue 
diseñado para tal propósito. Aun- 
que a veces se dice que con un 
buen equipo de grabación se elimi- 
nan todos los problemas, esto no es 
del todo cierto, ya que el mayor 
problema reside en las propias cin- 
tas, que debieran tener una mayor 
superficie de material magnético. 
El segundo problema de la casset- 
1e, como todos sabemos por expe- 
riencia, es la lentitud con que ope- 
ra. Los distintos sistemas de graba- 
ción/lectura a distintas velocida- 
des no resultan del todo fiables y 
tampoco son una solución. 

El microdrive resuelve estos pro- 


blemas, pero manéjelo con precau- 
ción. Recuerde que no debe tocar 
nunca la cinta, ya que podría per- 
der la información contenida en 
ella, así como no colocarlas cerca 
de un campo magnético (téngalas 
siempre retiradas del televisor in- 
cluso del Spectrum). 

La primera vez que utilice una 
cinta de microdrive o cartridge, 
como ocurre con todos los discos, 
tendrá que formatearlo, operación 
tras la cual podrá obtener alrede- 
dor de 90 Kbytes disponibles. Es- 
ta es una de las características más 
peculiares del microdrive, ya que 
distintas cintas e incluso reiteradas 
operaciones de formateo, dan ca- 
pacidades distintas. Esto es debido 
а que la cinta es particularmente 
rígida al principio, con lo que а 


Е Е аарга асна Бие c pa mv AE AA 
PROGRAMA 2 


PROGRAMA 1 


100 REM FORMAT ONO e 


t HERES numero 


Qo REM 
8290 E 


MRPR 


110 1,7; 
„299 INPUT “NOMBRE DEL CARTUCHO ¿¡"DIREC";AT_ 1,25; "5 
E .. S830 PRINT RT $t Заң. MICRODRI 
138 IF LEN nein THEN PRINT "DE ЧЕТ 3,18; 23734; ЯТ 3,25; 68 
назер LARDO SE И a @ 9240 PRINT АТ 5,1; THABA MICRODRI 
PRINT "INS UN > ARTUCHO VE";AT_S,18;23792,AT 28; (PEEK 
чуо, ¿EN EL MICRODRIVE Y PBULSR L 236514256 РЕЕК КЕЕДЕ ЕЕ 
A uu 9250 PRINT HT 7,1; INFORM. CANAL 
150 IF INKEYS<>"F" AND INKEYS«» 5 "¿AT eS 3531+256*РЕЕК 
pia АЕН Go TO 150 23552; IT (PEEK 236354256 «PE 
EK 236 D ЕЕК 23631+256+PEEK 2 
158 FOR с=1 TO 3 3632) 
180 PRINT HT 0,0 S фы 90568 PRINT АТ 9,1; "AREA ROGRRM 
190 PRINT "FORMRTERNDO ";n$; Я5";АТ 9,18;PEEK "hec ERE CHR 
Guo 0E 37 23636; AT 9, 25; (PEEK 23627«2554PE 
200 PRINT EK 23628) (PEEK 23035 +256#РЕЕК 2 
210 FORMAT "m";1;n$ 3636) Е 
КЖ м 
- + 
240 PRINT : PRINT "FORMATeado C 371084): IF LE 
ONCLUIDO" 11,8; 
С вот 
H 
@ PRINT RT 13, Е; "ULTIMO CRNRL 
"i PEEK 237 E 


5; 65129, UTILIOR 


AT 
% (PEEK 23780) 


medida que se utiliza permite ob- 
tener mayores capacidades. El pro- 
grama | ilustra este efecto, aunque 
el nümero de Kbytes ganados no 
esespecialmente importante. 

La utilización de los comandos 
FORMAT/SAVE/LOAD hace 
que la pantalla se altere violenta- 
mente cuando son utilizados con 
el microdrive. Para evitar esto sc 
puede introducir el código corres- 
pondiente al color del PAPER en 
la variable del sistema IOBORD 
(23750) mediante la instrucción 
POKE correspondiente. 

La principal razón para comprar 
un microdrive estriba en las posibi- 
lidades de almacenar programas y 
datos de forma rápida y eficiente. 
Pero si está pensando en pasar los 
programas de que dispone en cas- 
sette al microdrive, puede que ten- 
ga algunos problemas. Si se trata 
de programas realizados por usted 
en BASIC no tendrá ninguna difi- 
cultad, pero los programas que 
constan de más de una parte, como 
los que utilizan llamadas a otros 
programas puede que necesiten al- 
gunos cambios. Recuerde que con 
el microdrive no puede utilizar ex- 
presiones ambiguas como LOAD 
*". por lo que tendrá que reempla- 
zarlo por nombres. La casa inglesa 
Transform comercializa una cinta 
con la que poder realizar copias 
cassette-cassette, cassette- micro- 
drive, y microdrive- microdrive, 
muy ütil para las copias de se- 
guridad (backup) y para poder 
copiar toda la información en 
bloque en vez de ir programa a 
programa, dado que los microdri- 
ves no disponen de la instrucción 
COPY. Esperemos que pronto se 


PROGRAMA 3 


18 BEEN"ES HERT] "paras 


16 ОРЕН 36; т, 1; 10 BATAS” 

18 OPEN 87; M"; 2; "DATARS. 

25 Go Sus 108: Gò S 19 
sug ib Oct THEN PRINT 22,0: GO 

50 IF t«o THEN PRINT 87;t: GO 
8UB 110 

Se IF 1 =99999 AND 9=99999 THEN 
PRINT ВЕТ 7650$ CLOSE 86: 
CLOSE #7: STOP 

IF teo THEN PRINT #7;\: GO 

M 2:28. 80,308 110 

199 Чеш 89,0: RETURN 

110 INPUT 86; 1: RETURN 


comercialice en nuestro país. 

El manual del Spectrum avisa de 
los peligros de colocar programas 
en código máquina en instruccio- 
nes REM. Tenga en cuenta que si 
tiene conectado el Interface 1, el 
programa se desplazará a localiza- 
ciones de memoria superiores. 
Esto es especialmente complicado 
al utilizar canales y buffers. Utili- 
zando el programa 2 como una su- 
brutina, le permitirá visualizar el 
mapa de memoria del Spectrum 
desde el comienzo de los mapas 
del microdrive hasta el final de la 
zona de programas. También ofre- 
ce información de la cantidad de 

* memoria disponible así como del 
ültimo canal utilizado. 

Una de las mayores deficiencias 
de los microdrives en materia de 
manejo de archivos es la imposibi- 
lidad de acceder aleatoriamente a 
la información. Sólo existen fiche- 
ros secuenciales, por lo que para 
leer un dato hay que leer previa- 
mente todos los que se encuentren 
grabados con anterioridad a dicho 
dato. Y lo que es peor, no se pue- 
den grabar datos en un archivo ya 
utilizado: hay que crear un nuevo 
archivo para pasar los datos ante- 
riores y grabar nuevos datos. Pero 
esta no es la mejor solución, espe- 
cialmente si lo que se desea es al- 
macenar los datos ordenadamente. 


Imaginemos dos archivos que 
contienen nombres y direcciones. 
El problema es aunarlos en un solo 
archivo que contenga todos los da- 
tos perfectamente ordenados. No 
es especialmente dificil y se puede 
hacer con un solo microdrive, 
como ilustra el programa 3. Pero 
antes de ejecutarlo habrá de crear 
dos archivos con los nombres 
DATAI у DATA2 e introducir al- 
gunos nümeros en orden creciente. 
Los nümeros pueden ser diferen- 
tes, pero el último número de cada 
archivo habrá de ser el 99999, in- 
dicativo de fin de archivo. 

А continuación ejecute el pro- 
grama. El algoritmo para aunar los 
dos archivos puede ampliarse para 
trabajar con más de dos archivos. 

Finalmente, cuando se trabaja 
con cierta frecuencia con un car- 
tridge es curioso observar un ligero 
incremento en el tiempo de acceso 
a la información. Esto es debido a 
que los programas y archivos se 
graban de forma dispersa en vez de 
en un solo bloque, segün la confi- 
guración del cartridge. La ünica 
forma de solucionar esto es pasar 
la información a otro cartridge, 
pasando los programas primero, y 
después los archivos de datos. De 
esta forma se conseguirán impor- 
tantes mejoras en el tiempo de ac- 
ceso. 


r 


Incorpo 
la función 


SET 


sentencias, su ordena- 

dor se quedó bloquea- 
do? No le vamos a pedir que re- 
cuerde lo que pensaba en esos mo- 
mentos, a buen seguro que su orde- 
nador tampoco tenia muy buenos 
pensamientos, probablemente per- 
dido en un bucle sin fin. En estos 
casos, después de comprobar que 
efectivamente el ordenador no le 
hace caso aunque pulse todas las 
teclas, sólo le queda una solución: 
desconectar y volver a empezar. O 
quizá debiéramos decir que sólo le 
quedaba una solución. Si sigue 
leyendo este artículo y dispone de 
un Spectrum de 48K, pues con el 


e ecuerda la ültima vez 
que, tras pasar pacien- 
temente numerosas 

A 


siguiente programa podrá cons- 
truirse su propio RESET que el tío 
Clive le negó por condicionantes 
económicos. 

Para comprender lo que decía- 
mos del bucle sin fin basta con que 
introduzca una instrucción en su 
ordenador 


10 GOTO 10 


ridiculo ¿verdad? Pero útil para 
ver cómo su ordenador entra en un 
proceso sin fin, fácil de detener 
presionando BREAK (CAPS 
SHIFT y SPACE). Pongámoslo un 
poco más dificil: 


10 INPUT LINE A$ : GOTO 10 


Ahora la única forma de detenerlo 


ore 


es presionar simultáneamente 
CAPS SHIFT, ENTER y ESPA- 
CE, esta última de forma repetiti- 
va. Para ésta y otras situaciones si- 
milares, podemos valernos de las 
ventajas del código máquina y 
crear una rutina que haga las veces 
del inexistente RESET. Una vez 
introducida a partir de la dirección 
80E2, la función RESET quedará 
permanentemente activada al uti- 
lizar RANDOMIZE USR 33001 
hasta que se desactive por efecto de 


la instrucción RANDOMIZE 
USR 32994. 
A 
4 го: 


Una vez activada se puede tra- 
bajar en lenguaje máquina o en 
BASIC sin mayor problema. Pero 
una nueva función habrá sido in- 
corporada a su Spectrum, como 
podrá comprobar al presionar si- 
multáneamente SHIFT y ENTER. 
Cualquier operación que estuviese 
realizando el Spectrum quedará 
automáticamente suspendida, apa- 
reciendo el rótulo RESET execu- 
ted. El ordenador quedará disponi- 
ble para aceptar nuevos comandos. 


Curiosamente, observará una 
importante característica: si pre- 
siona RESET mientras está intro- 
duciendo instrucciones en una lí- 
nea, toda la línea será anulada. 


El código máquina comienza а 
partir de la dirección 80E2 (32994 
en decimal). Recuerde que la di- 
rección 32994 es la que deberá uti- 
lizar para desactivarlo y 33001 
para activarlo. 


Si todavía se muestra un poco 
escéptico, pruebe la siguiente ins- 
trucción en código máquina e in- 
tente desbloquear el ordenador sin 
y con la ayuda de esta rutina: 


18 РЕ LOOP JRLOOP 

¿Lo probó? Nosotros también 
opinamos que es formidable. Para 
ver mejor sus efectos pruebe a uti- 
lizarlos con cualquier programa en 
BASIC e incluso con los listados. 


Pero no todo es un camino de: 


rosas, lo que en nuestro caso signi- 
fica que no siempre el ordenador 
nos hará caso. Ello no quiere decir 
que siempre tenga la ültima pala- 
bra; simplemente hay que cono- 
cerle mejor para ver cómo trabaja. 
RESET no funcionará cuando rea- 
lice operaciones de grabación/lec- 
tura o cuando utilice la instrucción 
BEEP. Todos estos casos tienen 
algo en comün: la interrupción ha 
sido desactivada. Si graba el pro- 
grama que utilizó con RESET, 
pero no el código máquina, la car- 
ga y ejecución posterior del mismo 
no podrá detenerse con RESET, 
simplemente porque esta función 
ya no estará disponible. Además, 


el comando NEW desactivará la` 


función RESET, incluso si se gra- 
ba el código máquina por encima 
de la RAMTOP. 

Finalmente, RESET no podrá 
ser utilizado en un Spectrum аё 
16K. Ello es debido a que el regis- 
tro Г no puede contener valores 
comprendidos entre 40 y 7F sin 
afectar a la pantalla. 


Sería bonito y práctico que el 
Spectrum hubiese salido con un 
dispositivo de RESET incorpora- 
do. Sabemos de algunos que ya 
han desarrollado su propio ВЕ- 
SET externo. Para ellos y los que 
sólo quieren saber de software, les 
ofrecemos ahora la posibilidad de 
incorporarlo directamente a sus 
programas. 


ORG 80E2 
3E3F DEACTIVATE | LDA.3F 
ED47 LDLA 1=3F 
ED56 IM! Vuelta a la normalidad 
C9 RET Rechazada desactivación 
3E80 ACTIVATE | LD A.80 
ED47 LDLA 1-80 
EDSE IM2 Interrupción dirigida a -ADDR 
с ВЕТ 
524553 RES MESSAGE Mensajea imprimir 
45542065 
78656375 
746564A1 DEFM RESET 
executed! 
DRE 
0181 TADDR | DEFW 
TEST-RESET Interrupción hacia dirección 
TEST-RESET _, ш 
FS TEST RESET | PUSHAF Stack y Plags 
3EFE LD A.FE. 
DBFE IN АЕБ) Buscar segmento Ø 
IF RRA Chequear CAPS SHIFT 
3807 ЈК С,МО ВЕЗЕТ | Bifurcar a menos que se presione 
CAPSSHIFT 
3EBF LDA.BF 
DBFE IN A(FE) Buscar segmento 6 
1F RRA Chequear tecla ENTER 
3004 JR NC.RESET Bifurcar si se ha presionado ENTER. 
РІ NO ВЕЗЕТ | РОРАЕ Restore А y Flags. 
FF RST 38 Actualizar variables del sistema. 
KSTATE, LAST-K y FRAMES 
ED4D RETI Retornos 
2AB25C RESET | LD HL(RAMTOP)| ` 
2B БЕС HL 
F9 LDSP.HL Vaciar Stack 
2B DEC HL 
2B DECHL : x 
22305С LD(ERR-SP)HL | Reset variable del sistema ЕВК-ЗР. 
XORA 
32715С LD(FLAGX),A | Cancelar modo INPUT 
CDOL16 CALL CHAN-OPEN | Utilización canal 0 
CD6EOD CALL CLS-LOWER | Vaciar parte inferior de la pantalla. 
213B5C LD HL,FLAGS 
СВЕ RES 3 (HL) Especificar modo К. 
23 INCHL Direccionar HL hacia TUFLAG 
CBEE SET 5(HL) Señal de actuación en la parte inferior 
AF XORA 
11EF80 10 DE RES-MESSAGE-1 
CDOAOC CALLPO-MSG | Imprimir «Reset executed» 
B EI Permitir interrupciones. 
C3A912 JP MAIN-I Bifurcar 


na de las más habituales 

| ] criticas que recibe el Spec- 

trum, y junto con él todos 

NEN los ordenadores domésti- 
cos, es la escasez de aplica- 

ciones profesionales. Por contraste 
con el crecimiento espectacular de 
sofiware para juegos, lentamente 
han ido apareciendo una serie de 
programas de utilidades y aplica- 
ciones de cierta relevancia para to- 
dos aquellos que quieren utilizar el 
Spectrum para algo más que “ma- 


tar marcianos”. Pero, ciertamente, 
es un tema dificil y controvertido, 
con la ya tópica pregunta de si el 
Spectrum puede utilizarse para 
programas “serios”. Con lo que en 
realidad se pregunta sobre la posi- 
bilidad de utilizarlo en los campos 
en que tradicionalmente están re- 
servados a máquinas de mayores 
capacidades. Ello resulta en oca- 
siones tan ridículo como comparar 
un autobús con un turismo, para 
prestar un servicio de transporte. 


El único camino válido pasa por 
conocer las caracteristicas del 
Spectrum, para aprovecharlas al 
máximo, pero sin olvidar sus limi- 
taciones, que en el campo de las 
aplicaciones profesionales son su 
reducida memoria interna y su de- 
ficiente manejo de memorias ex- 
ternas. 

Una de las aplicaciones clásicas 
de todo ordenador es el editor o 
procesador de textos, a menudo 
suministrado con el mismo equipo 


como es el caso del QL de Sinclair. 
"Tasword two" es el nombre in- 
glés del editor que, bajo distintas 
versiones y nombres, se comercia- 
liza en Esparia, siendo el más co- 
nocido el “Contest”. 

El programa ha sido desarrolla- 
do por Tasman Software en 1983; 
pero hasta fechas recientes no se 
ha podido disponer de la versión 
en castellano con el vocabulario 
adaptado para poder manejar los 
caracteres españoles. El programa 
corre ünicamente en el Spectrum 
de 48 Kbytes utilizando BASIC y 
código máquina. 

Inicialmente, dos características 
llaman la atención: un completo 
manual de instrucciones, cuyos co- 
mandos se incorporan en el propio 
programa en forma resumida, y la 
existencia de una opción de copia 
y conservar el programa original 


Tasword permite manejar un 
texto de hasta 320 líneas, y 64 ca- 
racteres por línea. El nümero de li- 
neas es suficiente para cualquier 
texto. El número de caracteres por 
línea puede ser suficiente para im- 
presoras de 80 caracteres, aunando 
una velocidad aceptable y una ca- 
lidad de impresión más que acep- 
table, pero sin duda excesivos ca- 
racteres para la resolución de un 
televisor. El resultado es una fatiga 
visual y una difícil lectura, espe- 
cialmente cuando coinciden varios 
caracteres iguales. Un monitor 
tampoco soluciona el problema. 
Uno de los comandos permite vi- 
sualizar sólo la mitad de la panta- 
lla a su tamaño normal (es decir, 
32 caracteres por línea), pero al 
no poder ver el texto en su con- 
junto obliga a estar cambiando 
constantemente de un formato 


a otro, no modo de inserción. 
En la esquina superior izquierda 
de la pantalla aparece un pequeño 
cuadrado negro intermitente, indi- 
cando que puede comenzar a in- 
troducir el texto. Si no tiene el ma- 
nual de instrucciones cerca, no se 
preocupe: puede pulsar SYMBOL 
SHIFT y “a”, con lo que verá las 
distintas opciones de que dispone, 
о CAP SHIFT y “1” simultánea- 
mente. La primera vez verá los co- 
mandós más importantes, y si des- 
pués presiona CAPS SHIFT y 
SYMBOL SHIFT de forma simul- 
tánea, podrá ver los llamados co- 
mandos de ampliación. Vayamos 
por partes para comprender el al- 
cance de cada una de las opciones. 


Menú 


Presionando STOP (SYMBOL 
SHIFT y “a”) aparece el menú de 


Por fin un 


EDITOR 
DE TEXTOS 


profesional 


por si hubiese algún problema. No 
es normal encontrar buenas expli- 
caciones, rasgo común para todo 
tipo de ordenadores y programas. 
Pero menos normal es encontrar 
un programa que no sólo se preo- 
cupe de los problemas de copia, 
sino que la facilite como una op- 
ción más del programa. Dejando 
de lado los problemas de piratería 
que siempre existirán, no cabe 
duda que es tranquilizante saber 
que se dispone de una copia. 


resultando de mucha utilidad. 

Una vez efectuada la carga del 
programa, este se ejecuta automá- 
ticamente, apareciendo la pantalla 
totalmente en blanco, a excepción 
de la parte inferior de la pantalla, 
donde se informa continuamente 
del número de línea y columna en 
la que se encuentra el cursor, si 
está activada la justificación del 
texto (alineación según margen de- 
recho), la activación automática de 
márgenes y si se está trabajando en 


opciones disponibles: impresión, 
grabación, carga, mezcla, defini- 
ción caracteres, control de impre- 
sora, copia del programa Tasword. 

La impresión permite definir el 
nümero de línea en blanco entre 
las distintas líneas del texto, la lí- 
nea de comienzo y la línea final. 
Las operaciones de grabación, car- 
ga, mezcla de documentos y copia 
del Tasword vienen preparadas 
para cassette, pero se suministran 
los cambios necesarios para traba- 


( 


jar con microdrive. Después de in- 
troducir estos cambios pudimos 
comprobar que funcionaba correc- 
tamente, La única salvedad a men- 
cionar es que el programa no veri- 
fica la existencia del nombre de ar- 
chivo que se le indique, limitándo- 
se a dar el error correspondiente, 
lo que se complica en el caso de la 
actualización de un texto y su pos- 
terior grabación. Para evitar el 
error de “writing to a read file" 
habrá que salirse al BASIC, elimi- 
nar el archivo y volver al progra- 
ma. Otra solución es dar un nom- 
bre distinto para cada actualiza- 
ción, con el consiguiente desperdi- 
cio de espacio en el cartucho. La 
definición de caracteres de control 
de impresora permite trabajar con 
cualquier impresora aprovechan- 
do las características de éstas. El 
manual describe los códigos para 
la Epson FX80 y MX80, pero es 
fácilmente aplicable a otras impre- 
soras al poderse redefinir los códi- 
gos por programa. 


Finalmente, desde el menú se 
posibilita pasar al BASIC, tenien- 
do acceso al listado, pudiendo vol- 
ver al programa ejecutándolo de 
nuevo (RUN) sin que se pierda el 
texto con el que se estaba trabajan- 
do. 


CUANDO 
ELSPECTRUM 
PASA ASER 

UNA PROFESION 


No es ninguna novedad decir 
que muchos programadores, jóve- 
nes en su mayoría, han escogido el 
Spectrum como profesión, muchos 
de ellos lanzados a la fama por la 
realización de programas de jue- 
gos de gran difusión. Pero no son 
sólo juegos lo que demanda el 
mercado español. Miguel Barrera 
lo veía bastante claro, cuando ape- 
nas acababa la carrera de infor- 
mática decidió dedicarse de lleno. 
al Spectrum. Después de айо y 
medio de trabajo, no tiene ninguna. 


Comandos 


Presionando simultáneamente 
CAPS SHIFT y “1” (EDIT), ара- 
recerá una valiosa página de ayuda 
en la que se muestran los coman- 
dos más importantes, cuya utiliza- 
ción puede parecer un poco com- 
pleja al principio, como todos los 
editores, pero basta un poco de 
práctica para ver que no sólo se 
trata de un completo programa, 
sino también de un programa de 
fácil manejo. 

TRUE VIDEO e INV VIDEO 
permiten retroceder o avanzar el 
cursor hacia el comienzo de la an- 
terior o siguiente palabra. Con las 
teclas de movimiento (5, 6, 7 y 8) 
también se desplaza el cursor, pero 
caracter a caracter. OR sirve para 
desplazarse al final del texto, y AT 
para ir al inicio. Con TO y THEN 
se produce un rápido SCROLL de 
pantalla para visualizar rápida- 
mente cualquiera de las 320 líneas. 

DELETE permite eliminar ca- 
racteres de la misma forma que ya 
estamos acostumbrados en BASIC. 
Para borrar una línea se puede uti- 
lizar NOT. También se pueden in- 
sertar caracteres y líneas enteras 
mediante AND. La opción STEP 
permite juntar párrafos que estu- 
viesen separados, pero curiosa- 


duda sobre las aplicaciones del 
Spectrum, aunque reconoce algu- 
nas limitaciones: "El mayor pro- 
Мета es la memoria. No cabe un 
sistema operativo un poco decente. 
En cuanto metes un. compilador 
para irabajar en código máquina y 
alguna rutina de utilidad ya te 
quedas sin memoria. Queda poco 
espacio para meter datos, por lo 
que hay que traerlos de memoria 
externa, que no es precisamente lo 
mejor de Sinclair. Es bueno para 
pequeñas aplicaciones, especial- 
mente si se utiliza en su parte fisi- 
ca, como en la obtención de seña- 
les. Conectado al sistema telefóni- 
co, por ejemplo, se le podría decir 
dentro de dos semanas empiezas a 
llamar a un señor cada cinco mi- 
nutos. Si те coge el teléfono le das 
este recado y grabas el suyo. Si no 
contesta insiste, y si a los treinta 


mente, para que funcione siempre 
ha dc haber un caracter en la pri- 
mera columna de la línea. Así, en 
el caso de un “punto y aparte”. Si 
se desea cambiar a un "punto y se- 
guido", primero se ha de introdu- 
cir un caracter en la primera co- 
lumna del siguiente párrafo, volver 
a la línea anterior, pulsar STEP, 
llevar el cursor al caracter introdu- 
cido y borrarlo con DELETE. Pul- 
sando STOP se vuelve al menú. Si 
se ha fijado, la mayoría de estos co- 
mandos tienen una característica 
común: son los que están sobreim- 
presionados en rojo en el teclado 
del Spectrum, es decir, que siem- 
pre habrá que pulsar SYMBOL 
SHIFT previamente. 

Para el control individual de 
cada línea se dispone de 3 potentes 
comandos: “<=” desplaza la línea 
hacia la izquierda, “> =" la despla- 
za a la derecha, siempre que el tex- 
to no esté ocupando ya el primer y 
último caracter, respectivamente. 

>” centra el texto de la línea. 

Pulsando CAPS LOCK (CAPS 
SHIFT y “2”) se accionan las 
mayúsculas, apareciendo en la 
parte inferior izquierda de la pan- 
talla el rótulo CAPS LOCK. Otro 
rótulo que también aparecerá en la 
parte inferior de la pantalla, con- 
cretamente en el margen derecho, 


minulos sigue sin contestar llama 
a ото número y di que no has po- 
dido dar el mensaje. El único pro- 
blema seria lograr una estabiliza- 
ción suficiente para que aguante 
encendido. Pero la gente tiene 
miedo a meterse con esto". 

Es en el campo de las aplicacio- 
nes de gestión donde parece haber 
una mayor demanda, según se 
desprendía de sus trabajos realiza- 
dos, "El mayor problema me sur- 
20 para una empresa de Artes 
Gráficas. Querían que el ordena- 
dor confeccionase el formato de los 
anuncios de una serie de clientes y 
para un número de pedidos. En to- 
tal, 1.000 inserciones acumulables 
durante un año y cliente. Todo eso 
no cabe en el Spectrum a la vez. 
Además, había que ordenarlo, y 
una base de datos sólo ordena el 
bloque de datos existente en me- 


CIRCUITOS a 
COMPUTADORAS 
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es el GRAPHICS, ayisando que 
puede introducir el texto normal- 
mente. Pero con la diferencia de 
que las teclas numéricas devuelven 
los caracteres gráficos sobreimpre- 
sas en ellas. Independientemente 
de la utilidad gráfica que pueda 
proporcionar por pantalla (presio- 
nando CAPS SHIFT se obtiene el 
caracter gráfico inverso), permiten 
definir códigos de impresión para 
determinadas impresoras, como ya 
comentábamos al hablar del menú 
de opciones. 


Comandos de extensión 


Para acceder a los denominados 
“comandos de extensión” presione 
simultáneamente CAPS SHIFT y 


SYMBOL SHIFT. Notará que la 
línea inferior de la pantalla se tor- 
na intermitente. Pasará de nuevo 
al modo editor presionando algún 
comando o pulsando de nuevo am- 
bas teclas, CAPS SHIFT y SYM- 
BOL SHIFT. Estos comandos es- 
tán divididos en seis bloques: 
SCROLL, impresión, formateo, 
márgenes, comandos de bloque y 
comandos varios. 

Dos son los comandos de 
SCROLL: “F” para realizar el 
scroll descendente, у “С” para el 
ascendente. En vez de ir línea a lí- 
nea como los comandos “TO” y 
“THEN”, se va bloque a bloque, o 
pantalla a pantalla, es decir, 22 lí- 
neas cada vez. 

Los comandos de impresión es- 


peciales para la impresora ZX 
Printer, son tres: “Р” para impri- 
mir todo el texto (recuerde lo di- 
cho para la definición de códigos 
de impresión en las opciones del 
menú y el código GRAPHICS). A 
medida que se imprime una línea 
se produce el scroll de dicha línea 
por pantalla, lo que sirve para vi- 
sualizar el texto completo al mis- 
mo tiempo que se obtiene la copia. 
Con el comando “L” se activa la 
impresión en “modo extendido”. 
Es decir, que el texto aparece en 
doble densidad a partir de la línea 
en que se activó, fácilmente identi- 
ficable al aparecer en el texto el 
mensaje “print at double height 
on”. Si antes de llegar al final del 
texto se desea volver al modo nor- 
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CUANDO . 
ELSPECTRUM 
PASA ASER 

| PRO 


moria interna, es deci 
tener varios bloques di 
nados individualmente, pero no 

su conjunto. El microdrive tampo: 
co está preparado para trabajar 
este volumen de datos de forma efi 
ciente. Este problema de manejo 


de datos se me volvió a presentar 


en la realización de un programa 
de Bolsa. Partiendo de una base de 
datos, se аји taban las fluctuaci 


Comandos usuales. 


nes a la pantalla, de forma que se | r 


a la а= 


тете. Pero. siempre. ese 


de manejar muchos datos se nos 
presentarán problemas”. 

Además de sus "programas a 
medida", trabaja como asesor de 
una tienda de distribución de or- 
denadores Sinclair y periféricos. 
Actualmente está realizando una 
nueva versión del editor de textos 
Tasword, sobre el que nos daba su 
opinión: “Versiones hay muchas. 
Pero al igual que el programa ori- 
ginal, suelen adolecer de un gran 
fallo: 64 caracteres por línea resul- 
ta ilegible. Además, la búsqueda es 
muy lenta, especialmente el algo- 
ritmo de búsqueda y cambio de 
una frase por otra. Pero tiene un 
aspecto muy positivo, como es una 
buena capacidad que permite 'tra- . 
bajar con cualquier texto. Para el 
problema de los caracteres se pue- 
de intentar realizar una rutina en 
código máquina para trabajar con 


PONTE Я LOS MANDOS т 
DEUN SPECTRUM. 


ación en 
donarios 


mal de impresión, se puede presio- 
nar el comando *K", desactiván- 
dose la doble densidad, aparecien- 
do en la línea en que se presione cl 
texto "print at double height off 
Obviamente estos mensajes no 
aparecen en la copia de la impre- 
sora. La impresora ZX del Spec- 
turm puede, pues, utilizarse con el 
Tasword, posibilitándose dos tipos 
de escritura, pero dista mucho de 
ser una solución eficiente. Para ob- 
tener una buena impresión habrá 
de recurrirse a una impresora de al 
menos 80 caracteres por línea, lo 
que supone una inversión impor- 
tante. 

Los comandos de formato son 
cuatro: "E" activa la justificación 
del texto por la derecha, quedando 
el texto alineado en todo momen- 
to. Activando el comando “W” no 
habrá de preocuparse por el fin de 
la línea. Si la palabra sobrepasa el 
nümero de caracteres de la línea, 
automáticamente se pasará toda la 
palabra a la línea siguiente. Lógi- 
camente, si ya tenía activado el co- 
mando “Е”, simultáneamente se 
justifica el texto y se pasa a la si- 
guiente línea. Estas dos opciones 
son activadas automáticamente en 
el arranque del programa, pero 
mediante estos comandos pueden 
desactivarse/activarse en cualquier 


41 caracteres por linea y otra para 
imprimir 128 caracteres por línea 
en impresora, pero para ello hay 
que retocar el programa, y ello es 
un problema, porque no está direc- 
cionado de forma absoluta. que 
puedas decirle vete dos pasos hacia 
adelante, sino que dice vete a un 
byte determinado, por lo que hay 
que reubicar todo y no hacia ade- 
lante, que ya está casi todo lleno, 
sino hacia atrás, y aün asi hay pro- 
blemas”, 

Problemas los hay siempre, y sin 
ellos nos aventuramos a decir que 
la programación perdería gran 
parte de su encanto. Pero con pro- 
blemas o sin ellos, queda claro que 
el Spectrum va entrando lenta- 
mente en campos antes reservados 
a otros ordenadores, y que todavia 
existen muchos en los que podría 
ser de gran utilidad. 


momento. El comando “J” permi- 
te justificar cualquier linca al mar- 
gen derecho y su contrario, el “H” 
devuelve la línea a su condición 
normal. 

Los márgenes se pueden contro- 
lar con tres comandos. “A” y “D” 
para fijar los márgenes izquierdo y 
derecho, respectivamente, y “S” 
para eliminarlos. Para ello habrá 
de situar el cursor en la columna 
donde se pretende fijar el margen, 
antes de presionar el comando co- 
rrespondiente. Aunque la ausencia 
de color es la nota predominante 
de este programa, los márgenes se 
visualizan clara y nítidamente al 
marcarse en amarillo. Pero si se 
cambian una vez que ya ha escrito 
algún texto, habrá de contar con 
importantes limitaciones: la 
mayoría de los comandos de con- 
trol de pantalla no funcionarán o 
funcionarán sólo parcialmente, 
por ejemplo, el centrado de línea 
no será posible con el texto escrito 
previamente, pero tampoco será 
posible con las nuevas líneas si se 
pretende activarlo desde el interior 
de los márgenes, es decir, desde la 
zona amarilla. Recuerde esto y de- 
fina previamente a la introducción 
del texto los márgenes con los que 
desea trabajar. 

Una de las utilidades más im- 


portantes de todo editor está en la 
posibilidad no sólo de insertar 
nuevas líneas o eliminar líneas 
existentes, como ya hemos visto, 
sino muy especialmente en la posi- 
bilidad de desplazar bloques ente- 
ros de texto, normalmente párra- 
fos. Para ello se dispone de cuatro 
comandos especiales. “B” y “V” 
sirven para “marcar” el inicio y fi- 
nal del bloque que se desea mani- 
pular. Para ello se sitúa el cursor 
en la posición que se desea marcar 
y se presiona el comando corres- 
pondiente, apareciendo unos cor- 
chetes que indican el inicio y final 
del bloque marcado, 

Dos comandos completan esta 
importante opción: “N” permite 
realizar una copia del bloque mar- 
cado a la posición en la que se en- 
cuentre el cursor. Si en dicha posi- 
ción ya hubiese te: éste se de 
plazaría para permitir la inserción 
del nuevo texto. Con ello se obtie- 
ne el duplicado del bloque marca- 
do. Finalmente “M” es el coman- 
do más utilizado y similar al ante- 
rior, con la diferencia de que el 
bloque no se copia sino que se tras- 
lada de una posición a otra dentro 
del texto. Las normas para la fija- 
ción de las marcas de comienzo y 
fin del bloque son las mismas. 
Cuando se utiliza la opción “М” o 
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“N” se eliminan las marcas efec- 
tuadas, Una característica de estos 
comandos es su lentitud. No se 
preocupe si cuando los presiona su 
ordenador parece no reaccionar, 
sólo hay que darle tiempo. 
Finalmente existen tres coman- 
dos no incluidos en los otros blo- 
ques, con interesantes actuaciones. 
El cambio de la pantalla de 64 ca- 
racteres a 32 y viceversa, se realiza 
pulsando “С”. Para eliminar un 
texto de la memoria del ordenador, 
se puede utilizar “X”, estando pre- 
visto que se equivoque, ya que le 
pedirá la confirmación de dicha 
orden. El comando “I” permite 
trabajar en modo de inserción a 
partir de la fila donde se encuentre 
el cursor, muy útil para incluir 


nuevas líneas. Y para acabar con 
esta completa lista, el comando 
“R” incorpora otra de las opciones 
clásicas de todo editor, la localiza- 
ción y cambio de una palabra por 
otra. Pero con una particularidad, 
al menos en cuanto al programa: 
no funciona. Bueno, funcióna sólo 
en parte, pues permite localizar la 
palabra pero no la reemplaza, 
como indican las instrucciones. Si 
va a adquirir el programa, cerció- 
тезе de que funcione en su versión. 

En resumen, por fin un editor 
profesional para el Spectrum que, 
como todos los editores, contiene 
gran número de opciones (dema- 
siadas al principio). Pero no se deje 
deslumbrar por demostraciones e 
indague a fondo en las verdaderas 


posibilidades de cualquier editor 
que le presenten. A la vista de las 
opciones de este programa, decida 
usted si le es útil, pero no caiga en 
la tentación de comparar con los 
editores de un microordenador. 
Sencillamente, son dos campos 
distintos. Este editor de textos pue- 
de resultar de gran utilidad, pero 
no olvide sus dos limitaciones más 
importantes: la resolución gráfica 
de los 64 caracteres no permite 
una visualización clara, y la utili- 
zación de la impresora ZX para la 
realización de documentos no deja 
de ser meramente anecdótica. Un 
monitor y una impresora de 80 ca- 
racteres pueden solucionar el pro- 
blema, pero su coste empieza a ser 
más que preocupante. 
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| La nueva revista 
Жж! para usuarios del 
ZX:81 y SPECTRUM 


Mon tal 
programes Juegos piei 


Este es quizá uno de los temas 
que más quebraderos de cabeza 
han dado al usuario del Spectrum 
por la poca información existente 
y la brevedad de la mayoría de los 
manuales. 

Con este artículo pretendemos 
dar una idea general de su utilidad, 
así como un estudio detallado de 
los más usados en Езрайа. 

Para poder conectar una impre- 
sora a tu Spectrum, necesitas un 
interface que sirva de "traductor" 
entre los dos, es decir, que convier- 
ta las sefiales enviadas por el orde- 
nador por medio del bus de datos a 
señales comprensibles por la im- 
ргезога. 

El Spectrum tiene dos posibles 
formas de enviar datos a la impre- 
Sor: 

1. De carácter en carácter (byte 
а byte), llamada transmisión en 
modo PARALELO, ya que en 
cada momento cl ordenador envía 
ocho bits a la vez: en cuyo caso se 
necesitará un interface con salida 
paralelo. 


2. Bit a Bit, llamada transmi- 
sión en modo SERIE: debiendo ser 
el interface también de este tipo. 

El formato más usado en la 
transmisión en serie es el RS232 
que es compatible con la mayoría 
de los ordenadores y periféricos de 
E/S; así como en transmisión para- 
lela se suele usar el CENTRONIC. 

La transmisión en serie se usa 
más que para conexión a impreso- 
таз, para conexión con otros orde- 
nadores, teletipos, sintetizadores, y 
sobre todo cuando se trata de en- 
viar datos a larga distancia por su 
menor coste y mayor fiabilidad. 


Normalmente sólo se usa la trans- 
misión en serie en las impresoras, 
cuando éstas no tienen entrada pa- 
ralelo. 

Para enviar datos en serie, es ne- 
cesario realizar un pequeño pro- 
grama (protocolo) que decodifique 
los caracteres enviados por el spec- 
trum y que inserte una serie de bits 


de control: de paridad, de comien- 
zo y de parada; así como otro de 
acuse de recibo, et 


ZX interface 1 


El ZX INTERFACE 1 usado 
normalmente para la conexión del 


Spectrum con los microdrives, 
también lleva una salida serie de 
tipo RS232 que puede ser utilizada 
para la conexión con una impreso- 
та que lleve este tipo de entrada. 
En el libro “Spectrum microdrive 
book" del doctor Ian Logan se de- 
talla de una manera muy completa 
su utilización y el proiocolo nece- 
sario para ello. 

Las impresoras GP 50, TIMEX 
2048 y ZX printer por estar dise- 
ñadas sólo para Sinclair llevan ya 
el interface de tipo paralelo incor- 
porado, no habiendo problemas en 
su utilización ya que usan los co- 
mandos normales de impresión del 
Spectrum. Las demás por ser com- 
patibles con otros ordenadores, 
suelen llevar una entrada de tipo 
CENTRONIC y otra (casi siempre 
en el interior de la impresora, te- 
niendo que abrirla para realizar la 
conexión) de tipo RS232. 

El KEMSTON E, y el INDES- 
COMP son los interfaces más usa- 
dos y requieren por ello un estudio 
detallado. 

Veamos sus ventajas e inconve- 
nientes. 


Interface KEMSTO 


Es el sucesor del antiguo KEMS- 
TON con una notable ventaja so- 
bre el ya que tiene el sofiware en su 
interior grabado en EPROM y no 
en cinta como el otro. 

A diferencia del de INDES- 
COMP по ocupa memoria en el 
Spectrum, y por tanto no necesita 
inicializarse. 

Lleva incorporadas las funcio- 
nes LLIST,LPRINT, y COPY del 
Spectrum. 

La función COPY tiene tres for- 
matos: 

— Modo texto. 

— Alta definición. 

— Alta definición con doble ta- 
mano. 

Es posible modificar el número 
de caracteres pintados por línea 
por medio de POKE 23679, nüme- 
ro de líneas. 

En el modo texto, los gráficos no 
los pinta, y los caracteres no son 
los del Spectrum sino los propios 
de la impresora por lo que se pue- 


den modificar tanto en tamaño 
como en forma. 

Para poder modificar las opcio- 
nes que tiene el interface hay que 
acceder a un тепи por medio del 
comando COPY: REM? 

A continuación se puede ver un 
listado de este menú con todas las 
opciones en su estado inicial 
(cuando se enciende el aparato): 


SWITCHING COMANDS No.7F 
COPY : REM 
=ОТЕХТ 

ISEIK 100 
-&2SEIK 250 
3EPSON 
=!4ЕХТКА 

CHR$ TOKENS 0-1 

1 ENLARGED 0-1 

27 ESC 0-1 

/LF STATUS0101 


La última línea es la llamada 
“LINEA DE ESTADO” y da la 
actual situación de cada una de las 
opciones modificables del interfa- 
се. 


Interface INDESCOMP: 


Además de una salida de tipo 
CENTRONIC, lleva otra de tipo 
serie RS232-C bidireccional. Estas 
dos salidas pueden estar conecta- 
das simultáneamente a periféricos 
distintos. 

El software va grabado en 
EPROM y es volcado en las zonas 
altas de la memoria del Spectrum 
cuando se enciende el aparato. Por 
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Conector interface. 
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esto, el interíace es sólo válido 
para el Spectrum 48k. 

Permite la conexión de otros pe- 
riféricos al Spectrum ya que el co- 
nector de este, está prolongado por 
detrás del interface, pero habrá que 
utilizar direcciones distintas de 
E/S para cada uno de ellos. 

El interface utiliza los siguientes 
puertos: 

Salida 251 (FB H) para comuni- 
cación en paralelo. 

Salida 127 (7E H) para sefiales 
de control y transmisión de datos 
роге! RS 232. 

Entrada 251 (FB H) para infor- 
mación det estado de la impresora 
y recepción de datos por el RS 232. 

Como sólo se usa una línea de 
decodificación, - las direcciones 
cuyos bits 2 y 7 estén a cero no de- 
ben ser usadas. 

Para poder conectar la salida RS 
232 a un periférico hay que cons- 
truirse un cable con las siguientes 
características: 

Conector para el interface: 


pin 1: No seconecta. 

pin 2: Para la recepción de da- 
tos. 

pin 3: Petición de envío y men- 
saje de listo para transmitir. 

pin 4: Toma de tierra. 

pin 5: Para la transmisión de da- 
tos. 

pin 6: Mensaje de listo para en- 
viar. 


Configuración del conector tipo D de25 pines 
para los siguientes dispositivos: 
Seikosha 


Moes Лес Bryans VDU. General General 


Interface Impres, Plotter (Newb.) DTE 
бр ФТ (T ay [om 
IIXDATA 3 3 3 3 2 
RXDATA Qo 2 2 1 3 
RTS софт) * 4 
CTS 6 6 


Conector para el periférico: 


Habrá que seguir las normas que 
en cada caso se dé en los manuales, 
normalmente suele ser un conec- 
tor del tipo D de 25 pines. 

Cualquier equivocación en las 
conexiones puede estropear tanto 
el ordenador como el interface y el 
periférico. 

Para activar el software habrá 


que hacer un RANDOMIZE USR 
64973 después de ejecutar el co- 
mando NEW o RUN. 

El interface lleva un conmuta- 
dor que sirve para seleccionar el 
tipo de impresora: 

posición 1 ..Seikosha 

posición 2 ..Nec, Star, Epson, 
New Print (de Admate), C-Ito, Lo- 
gitec, etc.. 

El formato de salida para el RS 
232 es el siguiente: 

7 (u 8 para gráficos) bits de da- 
tos. 

1 bit de paridad. 

1 bit de comienzo. 

2 bits de parada. 

La tasa de baudios (velocidad de 
transmisión) se puede seleccio- 
nar “pokeando” las direcciones 
64520-1 desde 50 hasta 4800 bau- 
dios segün las normas de la ЕТА. 

Existen dos rutinas para el con- 
trol del interface: La primera es 
para salida de datos, y se dirige por 
medio de POKE 64524, byte: 
RANDOMIZE USR 64761. La se- 
gunda sirve para la entrada de da- 
tos y funciona por medio de los 
comandos RANDOMIZE USR 


6469&::LET A$=CHRS 
64525. La RAMPTOP se posicio- 
na en 64515. 


PEEK 


Los “Соруз” de pantalla se rea- 
lizan por medio de los comandos 


RANDOMIZE USR 65044 y 
RANDOMIZE USR 65047 (para 
doble tamafio, aunque por pintarlo 
de forma horizontal queda incom- 
pleto). 

A diferencia del KEMSTON, es 
compatible para las SEIKOSHAS 
en lo que respecta a la posibilidad 
de hacer "copys" de pantalla en 
modo gráfico, aunque para esto es 
necesario adquirir una cinta distri- 
buida por DIRAK que carga un 
programa en la misma zona de me- 
moria que la ocupada por el inter- 
face, anulando el programa de éste 
y sustituyéndolo en sus funciones. 

No tiene la opción de COPY en 
modo texto. 

Finalmente, decir que existen 


una variada gama de interfaces 
compatibles con el Spectrum no 
comercializados por el momento 
en nuestro país. Los más destaca- 
dos son: 

Otros interfaces compatibles 
con el Spectrum: 

* TASMAN INTERFACE: Pa- 
ralelo, software en cinta. 

* COBRA 232 МО Port: SERIE 
RS232. 

*HILDERBAY INTERFACE: 
Paralelo, software en cinta. 

* MOREX INTERFACE: Para- 
lelo, sofiware en cinta. 

* EUROELECTRONICS 
LPRINT: Paralelo. 

* ADS INTERFACE: Paralelo. 


ZX 


0000000000000 


000000 


Designación de terminales en el RS232 


000000 


MARCA 


INICIO 


D 2 TELET 


Transmisión de un caracter 


Apretón de manos con dos lineasde control. 


EE 


PARIDAD STOP 


- {одма Ap ори 


[Р] No puedo contraatacar en el 

programa de Boxeo del nümero 1, 

¿Será porque no existen instruc- 
ciones INPUT? 

Camacho 

Madrid 


[Р] Introduje el programa Boxeo у 
no pude mover mi jugador. ¿No 
podría ser un error de imprenta 
entre las líneas 30 y 62 donde pa- 
rece haber un salto entre esas lí- 
neas? 
Antonio Romero 
Jerez (Cádiz) 


Ea recibir dos cartas sobre el 
mismo programa, lo revisamos ex- 
haustivamente, no encontrando 
ningún error en el mismo. No exis- 
ten instrucciones INPUT ya que 
hace uso de la instrucción IN para 
poder presionar varias teclas si- 


multáneamente (líneas 400, 410, 
500 y 510). Tampoco había un sal- 
to de instrucciones de la 30 a la 62. 
Les enviamos por correo una copia 
del listado. 


[Р] La tabla de juego de caracteres 
del programa 64 Caracteres del nú- 
mero 1 tenía un fallo en la línea 
31984 que debe ser: 

319840, 14,2,2,14,2, 14,0. 
por lo que al presionar el “3” apa- 
теста un “2”, También quería pre- 
guntarles cómo se puede colaborar 
en su revista. 

Miguel Urosa Ruiz 
Madrid 


[R] Efectivamente, salió cambiado 
el 2 por el 8. Todospectrum está 
abierta a la colaboración de todos 
sus lectores para cualquiera de las 
secciones que la integran o cuales- 
quiera otros temas que puedan ser 
de interés. Sólo tiene que ponerse 


en contacto con nosotros en el telé- 
fono (91) 733 74 13 о por carta a la 
Redacción de Todospectrum. Bra- 
vo Murillo, 377, 5.° А. 28020 Ma- 
drid. 


[P] En. el programa 64 caracteres 
del número 1, ¿la carga de caracte- 
res se ha de realizar antes o des- 
pués del otro programa? 
Juan Estévez 
San Sebastián 


[s] Primero se ha de realizar la 
carga de caracteres y después gra- 
barlos con el nombre “caracteres” 
de la forma: 

SAVE "caractere" CODE 
31064, 1536 
para que la línea 40 del siguiente 
programa los cargue sin problema. 
Esta instrucción puede incorporar- 
se en el programa de carga de ca- 
racteres, por ejemplo como la ins- 
trucción 95. 


SUSCRIBASE 
POR TELEFONO 


x Inás fácil, 
* más cómodo, 
x más rápido 


Telf. (91) 733 79 69 


7 días por semana, 24 horas a su servicio 


SUSCRIBASE A | 


Codipicader de моло 


Tras una pequeña presentación, 
el codificador le pedirá el texto que 
desee codificar al morse. No tenga 
reparo en introducir textos muy 
largos, o en utilizar cualquier tipo 
de caracteres. Mayúsculas, minús- 
culas, números, espacios, y todo 


tipo de signos le serán permitidos. 
Después habrá de introducir la ve- 
locidad con que desea que aparez- 
ca el mensaje en pantalla (le acon- 
sejamos que elija la más rápida que 
aún así es bastante lenta). Para la 
impresión tiene dos opciones: ob- 


tener únicamente el mensaje en 
morse o bien acompañado del tex- 
to. La primera opción cs más intc- 
resante si desea dominar la codifi- 
cación. 


Autor: Jordi Tejedor Durán 16K 
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ON DE LOS SIGNOS 


PARA CONTINUAR APRIETA UNA TECLA 


SOY EL CODIFICRDOR 


A_APRENDER 
UCIR TEXTOS 


ABCDEFGH IVKLMNOPORSTU 
ABCDEFGHIJKLMAOPORSTU 


анас 2 


Ajusta 


Con este programa podrá ajustar por mínimos 
cuadrados datos experimentales obtenidos aleatoria- 
mente o por encuestas estadísticas a una determinada 
curva exponencial (a * EXP (b*x)),potencial (а*х ! b) 
o a un polinomio. Una vez terminado el proceso de 
ajuste, se da la forma explícita de la función y el 
coeficiente de correlación “г”, representándose la 
nube de puntos y la curva a la que se han ajustado los 
datos. Se obtiene además la suma de las diferencias 
cuadráticas entre el dato experimental y el interpo- 
lado. Pruébelo con este ejemplo: 

Nümero de puntos — 5 


Le recomendamos que no sea demasiado egoísta y 
lo comparta con sus amigos, para que estén en 
igualdad de oportunidades. Así todos acabarán antes 
su trabajo y tendrán tiempo para tomarse unas copas, 
ino le parece buena idea? 


Autor: Julio Gómez Herrero 16K 
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EL CARNET DE SOCIO DEL CLUB NACIONAL DE USUARIOS DE LOS ZX 
(ZX81, ZX-SPECTRUM Y ОГ) 


' Boletín informativo exclusivo para los socios 

' Servicio telefónico de consultas. 

' Fabulosas ofertas especiales. 

' Descuento del 10% y plaza preferente en los cursos 
de informática de VENTAMATIC en Barcelona. 

' Grandes descuentos para los socios de hasta cl 3596 
en sus compras de ordenadores, periféricos, acce- 

. 50гіоѕ y programas (SINCLAIR, COMMODORE, 

ORIC, etc.) a VENTAMATIC. 

' Sorteos de programas en cada boletín. 

' Posibilidad de comercializar los programas realizados 
por los socios. 

* Regalo a elegir al formalizar la inscripción. 
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EDITORIAL, APUNTES DE PROGRAMACION (I), REALIZACIONES DE LOS SOCIOS, CON- 
CURSO DE PROGRAMAS, SOFT-STARS, NOVEDADES, SOFT-BANK, SPECTRUCOS, JOYS- 
TICKS (1), EL QL, CORRESPONDENCIA DEL CLUB, BOLSA DEL CLUB, PROGRAMAS (Pri- 
vatización de programas - Laberinto - Conservación de gráficos en memoria - 4 en raya - 
Quiniela ahorro - Reloj - Cassette - Seguridad - Ordenación). 
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EDITORIAL, APUNTES DE PROGRAMACION (II), REALIZACIONES DE LOS SOCIOS, CON. 
CURSO DE PROGRAMAS, SOFT-STARS, NOVEDADES SOFT-BANK, SPECTRUCOS, JOYS- 
TICKS (1), LOS MICRODRIVES, CORRESPONDENCIA DEL CLUB, BOLSA DEL CLUB, IN. 
FORMATICA Y ENSEÑANZA, GRAFPAD (Tablero gráfico), EL RINCON DEL CODIGO MA- 
QUINA, RUTINAS DE LA ROM, ENTREVISTA CON MATTHEW SMITH, PROGRAMAS (Zylo- 
ms - Tron - Simulación de reconocimiento de Voz - Número e - caracteres -gráfica 3D - 
Salom espacial - Batalla Naval). 
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MEMORIA EN EL ZX-81, CONSULTAS, TRUCOS CON EL MICRODRIVE, TRUCOS CON EL 
TX-81, PROGRAMAS (Tragaperras - Reloj en tiempo casi real - Barcos - Ruleta - Revuelto 
Renumerados - Laberinto 3D - Super Save - Zoom de Funciones - El Canal del Llobregat 
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club 
NACIONAL DE 
USUARIOS DE LOS 
NOMBRE 


CADUCA 


1. ESTA TARJETA ES PERSONAL E INTRANSFERIBLE. 
* См дла PUBICAQUN BI. MORENO оло NUNERO 5 
SE ESPECIFICA EN EL ANVERSO. 
з ОЕ LA рпевентасюм DE ESTA тамата Ý 
PARA BENEFICIARSE DE LOS DESCUENTOS EN 


А 'VENTAMATIC Y DEMAS VENTAJAS OFRECIDAS FOR EL. 
ad | 


Club Nacional de Usuarios бо los ZX c/ Córcega, 80, entio. BARCELONA-20. 


г а: VENTAMATIC - Dpto. Venta por Correo - Avda. de Rhode, n." 253 
ROSAS (Gerona), o personalmente en VENTAMATIC - Exposición, Venta y Cur- 
sos - c/ Córcega, п.° 89, entlo. - 08029 BARCELONA 


— — — — — — 


[T Deseo ser inscrito como socio del Club Nacional de Usuarios de los 
Usuarios de los ZX y recibir 6 boletines a partir del N.° 
| inclusive (último N° publicado: 11). Por formalizar mi inscripción antes 


del 15 de Octubre de 1984 tengo derecho a recibir el regalo que señalo | 


con una cruz, totalmente gratis. 


REGALO (escoger uno solo por inscripción) РУР. 
О Libro «Guía práctica del BASIC del ZX81 y del 2Х-5РЕСТВОМ» 1.200 ptas. 
О Funda de plástico para ZX-SPECTRUM 400 ptas. 
IE Paquete de cinco cintas vírgenes C-15 500 ptas. 
О Revista en cassette SPECTRUMANIA N.° 1 750 ptas. 
E Juego de plantillas para teclado de ZX-SPECTRUM 100 ptas. 
NOMBRE: 
[льешров: 
CALLE. NS 
CODIGO POSTAL POBLACION 
| PROVINCIA 
Envio 2.500 ptas. mediante: 
О Talón adjunto. 
О Giro postal N.” de fecha 


———————————— 


da resolución gráfica. Está estruc- 
turado en seis bloques: rutina prin- 
cipal, comecocos, inicialización, 
instrucciones gráficas y laberinto 
(lineas de REM sombreadas). De 
forma un poco más detallada: 


Líneas 

134-136 Comienzo. Definición de 
gráficos 

001-007 Inicialización de varia- 
bles 

009-016 Rutina principal 

018-040 Movimiento comecocos 

042-044 Nivel de dificultad 

045-053 Controles de manejo 

054-056 Marcadores 

058-068 Instrucciones de juego 

082-108 Definición de gráficos 

110-132 Diseño de laberinto 

014-015 Ubicación aleatoria del 


fantasma 

057 Música al comer al fan- 
tasma 

108 Borrado de líneas inferio- 


res 


Una vez introducido no lo eje- 
cute con RUN. El programa está 
preparado para ser grabado con el 

comando SAVE “Comecocos” 
LINE 134, como se indica en la li- 
са nea 133. Ejecute GOTO 133 y 
arranque de cinta o bien GOTO 
Esta es una versión de las mu- mente realizado en BASIC, por lo 134. 
chas que se han hecho sobre el cé- que es fácil adivinar que no es muy 


lebre "comecocos". Está entera- rápido, pero presenta una estupen- Autor: Andoni Martín 48K 
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La resolución de ecuaciones es 
un tema sencillo para cualquier or- 
denador. Por eso pensamos en 
complicarlo un poco introducién- 
dole el programa en Pascal. Lógi- 
camente necesitará un compila- 
dor. Para éste programa se utilizó 
el HP4S, pero no tendrá ningún 
problema utilizando otros. El pro- 


O Hoor AMAS 
Rosolmción EcmoLivonos 


grama está preparado para resolver 
la ecuación SIN(X) + TAN(X) -1 
definida en la línea 60. Basta cam- 
biar esta línea para calcular cual- 
quier ecuación. El método utiliza- 
do es la iteración (líneas 190 a 240) 
para el intervalo y error permitido 
introducido. 

Para que tenga solución, los ex- 


tremos del intervalo han de ser de 
distinto signo y dado que la fun- 
ción signo no existe en Pascal, se 
ha multiplicado la función en un 
extremo por su valor en el otro ex- 
tremo. Si el resultado es menor que 
cero ello significará que el proble- 
ma tiene solución. El compilador 
parte de la dirección AC64. 


Autor: José Ramón Herrero 16K 


AC64 10 PROGRAM BISECCION; 
AC64 20 VAR 
AC6D 30 A,B,M,E:RE, 


ACD 40 FUNCTION FG REAL) :REA 
ACTO 50 BEGIN 

AC88 60 F:=SIN(XW+TAN(X)-1 

ACB5 70 END; 

ACDO 80 BEGIN(+PROGRAMA PRINCI 


ACD9 90 READ(A,BE); 

АСЕ? 109 WRITE(CHR(16)); 
WRITELN(! у. EXTREMO 
S DEL INTERVALO SON 


AD2A 120 WRITELN; 

AD2D 130 WRITELNCA=,A/B=, 
ADSE 140 WRITELN; 

AD61 150 WRITELN(EL ERROR РЕ 
RMITIDO ES ,Е); 

ADSE 160 WRITELN; 


AD91 170 IF F(A)*F(B)>=0 THEN 
WRITELNCNO EXISTEN RAICES 


3i 

ADEF 180 ELSE BEGIN 

ADFS 190 REPEAT 

ADFS 200 М:җА+В)/2; 
д 210 IF F(M)*F(A) 

< 

AES0 220 ТНЕМ В:=М 
AESD 230 ELSE 

АЕбЕ 240 UNTIL TRUNC(A/ 
E} ОМС 

АЕВ4 WRITELN(LA RA 


IZ DE т ¿ECUACIÓN ES” М); 
26 WRITELN; 
АЕЕ8 27 0 WRITELN(CON Ц 
N ERROR < 0,000001") 
AF0A 280 END 
AFOD 290 END. 
End Address: AFOF 


Run? 
LOS EXTREMOS DEL INTERVALO SON 
A= 1.20000E+0 1 B= 2.00000E+00 
EL ERROR PERMITIDO ES 1.00000Е-0 


NO EXISTEN RAICES 


LOS EXTREMOS DEL INTERVALO SON 
A=0.00000E+00B= 9.00000E-01 

EL ERROR PERMITIDO ES 1.00000E-0 
6 


LA RAIZ DE LA ECUACION ES 4.5000 
OE-01 


CON UN ERROR « 0.000001 


Dominó 


Afortunadamente todavía que- 
dan muchos rincones en nuestra 
geografia donde se reúnen los vie- 
jos amigos a echar la partida de do- 
minó, en torno a una destartalada 
mesa con el único fin de pasar un 
buen rato. 

Este es el juego que le propone- 
mos con el siguiente programa. La 
situación es un poco distinta, acor- 
de a los nuevos tiempos, pero las 
normas del juego se han respetado 
al máximo (incluso podrá engañar a 
su oponente, robando fichas aun- 
que tenga para poner). Julio Gó- 
mez nos contaba los problemas 
con que se encontró en la realiza- 
ción de este programa: 

“Cuando comencé a realizarlo 


tenía el Spectrum en reparación, 
con lo que tuve que diseñar la es- 
tructura básica sobre el papel y no 
directamente sobre el ordenador. 
Ello me llevó a un mayor orden 
como se ve en el gran número de 
subrutinas. Así por ejemplo, las lí- 
neas 500 y 501 forman una peque- 
ña subrutina cuya misión es sacar 
de la tabla b$, donde se contienen 
todas las fichas, aquella que va al 
ordenador o al jugador. De hecho, 
esta subrutina ya la había utilizado 
para ordenar números en otro pro- 
grama. Otra consideración que 
tuve en cuenta es que las rutinas 
interaccionasen lo menos posible 
entre sí, pues de esta manera es fá- 
cil aislar errores, que es el primer 
paso para corregirlos. Por ello es- 
tructuré el programa en tres gran- 
des bloques: programa principal y 
subrutinas del jugador y del orde- 
падог. 


Ргоргата 
principal 


El programa principal ocupa de 
la línea 10 a la 370. Comienzo di- 
mensionando e iniciando las varia- 
bles a utilizar, asignando en la lí- 
nea 100 a cada elemento de la ta- 
bla t$ una semificha (por ejemplo 
-)). La tabla u$ contiene todas las 
fichas"del dominó, realizando una 
copia en B$ (líneas 210 a 270). La 
asignación de fichas al ordenador y 
jugador, se realiza cn las instruc- 
ciones 280 a 330, reordenando В$ 
mediante la rutina antes comenta- 
da. Pero la parte más complicada 
fue la generación de las 49 fichas. 
Realmente en el dominó “físico” 
sólo hay 28, pues[-T-] sólo difiere 
en un giro de['.|- ], pero el ordena- 
dor no lo sabe. Por ello necesitaba 
una rutina de dibujo de las fichas, 


LA REVISTA PARA LOS - 


Pidala 


í 
en su quiosco 


que coloqué entre las líneas 1000 а 
1040. 

La variable ‘i’ indica la posición 
horizontal de la ficha (entre cada 
ficha de dos caracteres hay otro de 
separación) como tenemos 7 fichas 
el final estará en 7 *4 -28. 

En la línea 1020 asigno a ‘m!’ y 
*m2' los valores de j$(mat,1) y 
j$(mat,2). Supongamos que mat=1 
y que j$(1)-"04"* (Т). Entonces 
тЇ=0+1=1ут2=4+1=5. 

Еп la línea 1020 se realiza la im- 
presión avanzando de cuatro en 
cuatro los caracteres gráficos co- 
rrespondientes a j$ y que se en- 
cuentran en t$. Siguiendo con el 
ejemplo sería: 


t$ (1) +18 (5) = < 


т 


que era la ficha deseada. 


BON 1909 LET 
18 BIN 1818 FOR 
22,2): D 1015 LET 
Ji DIM W ) masURL Jj 
(2): DIM 1 1020 PRIN 
100 LET t t Т LET пах 
"Lev ta (d e 1938 NEXT 
Чаң, ) 1048 RETU 
ET 817) = N 1499 REM 
205 LET he28: LE он 1500 LET 
1а0=1: LE (1310: LET W 1510 INP 
LET X(1) :OLET X(2) a14: 1620 IF 
umag: LET bul; LET sumis SUB 280 
210 LET 1 А 1539 FOR 
250 FOR то OR dl 1640 IF 
230 LET cojaSTRS ) +87 Ав) TH 
ET созсо+ ; 1650 -NE 
249 NEXT NEXT j 1580 BE 
250 FOR TO со-1 ада ile 
260 LET 68 (1) sURCi) 1870 IF 
270 NEXT i ЫЛА И 
280 FOR іні TO 7 2: LET 
290 LET nunmINT (RND&fich)*1: L Capi 
ET $(i)snum: LET м9 (1) аф (ПОМ) : así): 
ET З ЫҢ LET Рі спаѓа еме р ): $9 
T 
31 POR isi TO 7 9578 IF 
$88 LET nun=INT (RNDAfich)ed: L 15689 IF 
ET gi gagn: LET }@(1)=ЕЬ& (Nun): LET fj 
9р SUB 500; LET fichefich=1 3000: 
38 NEXT i LET E 
340 GO SUB 1009 n Т 
350 LET salsINT (RND»10): LET Of i. LET 
3=7: LET fox? Un 3500: 
380 IF sal(=4 THEN GO TO 1800 1): 6 
370 IF sal»má THEN GO TO 2000 1609 PR 
500 FOR wanum TO fich-l: LET b8 "7 GO T 
EB unsiv NExT w 2000 RE 
510 RETURN 2010 LE 


Subrutina 
del jugador 


En las líneas 1500 a 1600 puse 
las instrucciones relativas a la co- 
locación de las fichas por el juga- 
dor. En la 1500 y 1560 se pide la 
ficha y se verifica que se tiene. La 
1570 concierne al caso especial de 
que sea la primera jugada. 

En este caso se asigna a 0$ el 
primer número de la ficha y a I$ el 
segundo, imprimiéndose la ficha 
en el centro de la pantalla y dismi- 
nuyendo el contador de fichas del 
jugador. Si no es la primera jugada 
(и = 1), se ha de comprobar que la 
ficha elegida sea correcta, en cuyo 
caso se pasa a la rutina de coloca- 
ción de la ficha y a la rutina de eli- 
minación de la ficha en el jugador. 
Para saber si la ficha es válida, se 


comprueba si a$(1) (el primer nú- 
mero de la ficha) es igual а 0$ (el 
número de la derecha de la última 
ficha del extremo derecho), y si es 
diferente se comprueba con 1$ (nú- 
mero de la izquierda de la última 
ficha del extremo izquierdo). Con 
este procedimiento siempre se co- 
locarían las fichas preferentemente 
por la derecha. Para permitir al ju- 
gador que decida el lugar de colo- 
cación de la ficha, introduje la lí- 
nea 1575, De esta forma si se te- 
clea un tercer carácter, por ejem- 
plo un espacio, LEN a$ =Зу la fi- 
cha se colocaría directamente a la 
izquierda. 


Subrutina del ordenador 


Al igual que en el caso anterior, 
se comprueba si es la primera juga- 
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da o no. En caso afirmativo (ju = 
1), se toma la primera ficha de m$ 
y se disminuye el contador de fi- 
chas. Si ju 1 el ordenador ha de 
saber si tiene una ficha para poner. 
Para ello seguí la misma metodo- 
logía, primero comprobar con la 
derecha, comparando D$ con 
m$(1) y también con m$(1,2), ya 
que si tiene la ‘01’, también tiene 
la *1”, pero no lo sabe. Después, si 
no puede colocar en el lado dere- 
cho pasa al izquierdo. Si tampoco 
consigue encontrar una ficha, ro- 
bará más fichas, hasta que encuen- 
tre una. Pero una vez más, la com- 
plejidad vino del lado de la impre- 
sión. Cuando la línea se llenase de 
fichas habría que cambiar la direc- 
ción, como se hace en el juego 
cuando no hay más sitio en la 
mesa. La rutina “colocación” de la 


Hogramas 


línea 3000 se encargaría de hacer 
esto. 


Alfa=1 indica que la ficha se co- 
locará por la derecha, y Alfa=2 por 
la izquierda. En w(1) y w(2) se 
guardan los datos de la fila y co- 
lumna de impresión, respectiva- 
mente. 

El programa ya estaba listo para 
empezar a jugar, pero distaba mu- 
cho de ser perfecto, especialmente 
porque no dispone de una estrate- 
gia de juego, sólo se limita a com- 
probar que se dispone de las fichas 
necesarias para efectuar los movi- 
mientos, pero el ordenador coge la 
primera ficha que encuentra. En el 
futuro lo mejoraré, pero antes ten- 
80 que hablar con mi abuelo, que 
de esto sabe mucho..." 


Para indicar la ficha que desea 


colocar, se introduce su valor nu- 
mérico. Veamos un ejemplo: 


Si desea colocar el “02” por la de- 
recha, teclee ‘02’. Por la izquierda 
sería ‘02Г. Para robar teclee ‘В’. 
Los caracteres gráficos no se defi- 
nen en el programa. El programa 2 
los genera y los guarda. Tan sólo 
tendrá que añadir la instrucción 
LOAD *” CODE al programa para 
incorporarlos.” 


Autor: Julio Gómez Herrero 48K 
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Diviértase con ellos y, además, ahorre dinero con esta oferta йпїса y exclusiva para los 
lectores de esta revista. 


ANNE 


Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador SPECTRUM. 


lo xz ACES 


estamos en la nueva temporada Че 
carreras. Sólo piensas en el derby 
Diriges una cuadra de caballos, 
debes entrenarlos para el gran 

día, Compra y vende caballos, si es 
necesario, pero cuando llegue la 
carrera trata de dominar tu tensión. 
En los últimos 200 metros 
descubrirás si has hecho bien tu 
trabajo. El ordenador te ayudará. 
pero todo dependerá de tu buen 


Tres meses buscando el Tempolo 
templo de Quetzacoatl рага acabar 
atrapado ej os han 
sido asesinados, Tu ünica manera 
de salir es atravesando la red Че 
pasadizos socrotos construídos por 
los aztecas, Pero ¡atención! по 
іпсштаз en 1 provoques la 
veganza de los dioses. Puedas 
consultar tu mapa, pero cada vez 
que lo haces se desintegra y debes 


Tus compañ 


juicio. 
Precio: 1.550 ptas, 


DR. FRANKY 


Solitario, en las mazmorras 
encantadas y oscuras de su castillo 

el Dr. Franky intenta 
desesperadamente convertir el 
monstruo que él ha inventado 
CORN. Me Men 
pero no lo es. Se trata de encontrar 
los frascos que contienen los 
productos químicos que dan la vida 

Y ro debes olvidar la fuerza de lo 
sobrenatural. Las gentes que han 

sido transformadas en monstruo 
quieren vengarse. 

Precio: 1.550 ptas. 


Ó 


Usted puede comprar cualquiera 
de estos cassettes a su precio 
individual de 1.550 Ptas. 
Pero también puede adquirir el 
lote de 4 por sólo:4.650 Ptas, / 
y AHORRARSE 1.550 Ptas. 
> А O sca. cuatro cassettes por el 
bh de tres; Aproveche co 


y 


Recorte y envíe este cupón HOY MISMO а: emm шш emm шш cm = =———— uS 


Comenzar de nuevo tu desesperada 
búsqueda de salidas, Buena suerte, 
Precio 1.550 ptas. 


La Tierra ha caído en el 
oscurantismo. Nigromante y sus 
demoníacos sirvientes la han 
conquistado, esclavizando a los 
humanos. Tú eres el último de los 
brujos de otra época y debes 

viajar a Stonehenge para 

rescatar a otros tres brujos, a 
quienes necesitas para vencer a 
Nigromante, Se agota tu tiempo. 
¿Podrá salvarlos antes de que se 
hayan convertido en piedra? ¿Antes 
que la Tierra se hunda eternamente? 
Precio: 1.550 ptas. 


INFODIS, S.A. r 
Bravo Murillo, 377-5.°-A " ) 
28020 MADRID — 


Envienme a mi domicilio, al precio de 1.550 Ptas. cada una, más 95 Ptas, de gastos, la cassette o 
cassettes que le indico a continuación marcando con una (X) en el casillero correspondiente. 
Queda bien entendido que pidiendo las 4 cassettes obtengo un ahorro de 1.550 Ptas..lo que me 


supone UNA CASSETTE GRATIS (Sólo pagaré 4.650 Ptas. más 95 Ptas. por gastos de envío). 


C RACING MANAGER []QUETZACOATL [| ОВ ЕВАМКУ [] SORCERY 
Las 4 cassettes, en las ventajosas condiciones de AHORRO para mi (4.650 Ptas.). 


El importe lo abonaré: 
POR CHEQUE [1 CONTRA REEMBOLSO [ ] CON TARJETA DE CREDITO [] 


American Express L] Visa [ Interbank C] Fecha de caducidad 


Número de mi Tarjeta 


Nombre 


Dirección 


Ciudad DP. 


Provincia 


Cada envio llevará 95 Ptas. en concepto de gastos. 
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partir de 
troduzca 


permite intro- 


ilustra la forma de crear sus 


D 


EL NO. ES MAYOR DE 100 " 


El programa | define ALI, AL2 e INPUT, Las 
dos primeras sirven para visualizar el juego de 


caracteres del Spectrum. INPUT 


ducir datos numéricos. 


El programa 
propios condicionales. Para ello se definieron 


AL3, ALA, ALS y AL6. Teclee AL3, a 
un dato. El programa le indicará si es menor, 
mayor o iguala 100. 


Listado 2 


: AL4 . "EL NO. ES MENOR DE 100“; 


la cual se hace referencia a las otras, e ini 
ALS. 


pegar 
reali- 
para ir- 


que haber de 
ado a “ 
guaje, utilizando 
JUEGO DE CARACTERES” CR ; 


Dicen que en este mundo tiene 
todo. Y el Forth parece estar llam: 


Empezando con Tort, 


: ALI 6 PAPER 1 BORDER CLS А12 255 23 
DO 123 -. 8 SPACES I EMIT CR LOOP; 
: INPUT PAD 1+ 64 EXPECT .Ø PAD 


fuerte” en el futuro. Alfonso Martín nos ha 
(NUMBER) DROP DROP.; 


zado una pequeña y básica demostración 
nos familiarizando con este len, 


el compilador Abersoft. 


Listado 1 
: АГ2 CR.“ 


— 


= Заз: ZZZZZZZZ 
425: з ~ HHHHHHHH 
20020 ~a: 'ennennenn 
шын: аз -------- 
На: а эмт 1.49 3010 DOT 
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Bucarest 
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ЕЕ -Qaaaauaoeo 
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5: cepe -5555559555 
Фе: сч: [4 

а: асе -оэшшшшшшшшэо 


“INPUT XI !.“ Y " INPUT YI 


Finalmente el programa del listado 4 permite 
"INPUT ХЕ!.“ 


utilizar las posibilidades gráficas del Spectrum, 
indicando las coordenadas X,Y. Teclee PIN- 


INCORRECTO 
La respuesta es: 


TAR, el ordenador le pedirá los valores iniciales 


y finales (coordenadas) para trazar líneas. 


Listado 4 


a 
н 
2 
а 
E 
E 
a 
ш 
а 
i 
а 
E 
h 
ü 
a 
о 


Ø VARIABLE XI 
Ø VARIABLE YT 
Ø VARIABLE ХЕ 
VARIABLE УЕ 
РИ 
p 
X 


5 ZO: wo -сонг: 9993999999 


{51 paises 
Veamos ahora cómo construir un pequeño 


{33 paises 
(33 paises 
(39 paises 
(11 paises 
(187 pais 
nos dé el factorial de un número. 


El listado 3 define las variables F y D. En F se al- 
macena el producto, y D es el contador. Intro- 


duzca FACT y el número del que desea obtener 
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“EL NO. ESIGUAL А 100“; 


gaRMERICR 
З=АЕАТСА 
4=А5ТА 
SsOCERNIR 


TaTODOS 


1»EUROPR 
Use inicial capital Mayuscula 


Pulse ENTER sino recuerdas 
: AL3 INPUT 100 LIF А14 ELSE 100=1F 


AL6 ELSE ALS THEN THEN ; 


el factorial. 


:AL6. 
: FACTI | F! INPUT D!DGF!; 


programa que 

© VARIABLE F 

2 VARIABLE D 

: ҒАСТЗр@1-р!; 


Listado 3 


.* INTRODUCIR VALORES ” CR.“ 


INICIALES " PII CR .* FINALES " РЕ; 
: PINTAR PI CLS XI eYI 0 PLOT XFe 


YFG DRAW ; 


«PI 


: FACT FACTI BEGIN F@ DUP DG] - * 
F!FACT3D 81 -UNTIL F?; 


| GUSANEZ por dose С. Tomás 


PERDONA QUE iNSISTA 


YO CORTARÍA EN LA 
LÍNEA 200 Y 210 


YO QUITARÍA ESA 
INSTRUCCIÓN... 
CORTARÍA POR LA 200 
Y POR LA 20 y Lo 
PONDRIA 
RUTINA , 


No estoy dispuesto a decirte que en el próximo número se hablará de: 


ARCHIVO DE SOFTWARE. Un original programa para guardar la información de sus 
programas. 

UTILIZANDO EL SPECTRUM PARA HACER PELICULAS. Comentarios sobre el VU-3D. 
EXPANDIENDO EL BASIC. Una forma sencilla de incorporar nuevos comandos. 
DOMINANDO LOS ARCHIVOS EN MICRODRIVE. 

PROGRAMAS: El auténtico «Frogger» en exclusiva para nuestros lectores. 

^. Y MUCHOS OTROS TEMAS 


Así que no insistas y espérate al próximo número. 


. SERVICIO DE EJEMPLARES ATRASADOS 


Complete su colección de ZX. 
A continuación le resumimos el contenido de los ejemplares atrasados 
en existencia. 


Núm. 3 - 250 Ptas. Núm. 6 - 250 Ptas, 
El Spectrum por dentro/Programas, juegos Construya su propio juego/Programas 
y montajes/Software y montajes/Ideas/Software 


Núm. 4 - 250 Ptas. Núm. 7 - 250 Ptas. 
QL, el nuevo Sinclair/Programas, juegos, Juegos inteligentes/Sottware/Programas, 
montajes/Ideas/Novedades. Libros 


Núm. 5 - 250 Ptas. Мат. 8 - 250 Ptas. 
Gráficos y sonido en el Spectrum/Libros/ La aventura es la aventura/Progra 
Software/Programas Juegos y montajes/Código máquina 


Corte y envie este cupón a: ZX 
Edisa - López de Hoyos, 141 - 28002-MADRID 


ва - Lopez de Hoyos, 141 - 28002 MADRID 2 
Г SERVICIO DE EJEMPLARES ATRASADOS 


Ruego me envien los siguientes ejemplares atrasados de ZX 


El importe lo abonare: 
Contra reembolso © Adjunto Cheque 3 Con mi tarjeta de crédito 


American Express © Visa 2 Interbank Fecha de caducidad 
ЕЯ Т I I 
ОО АВА ЕВЕ АО E 
Р - в МОМВВЕ 
= E DIRECCION — 
Juegos intelige: CIUDAD Dip: 


PROVINCIA 


GARANTIZAMOS 
EL CRECIMIENTO 


DE TU 
РЕСТВИМ 


Si tienes un SINCLAIR ZX SPECTRUM de 16 К y deseas ampliarlo а 48 К ahora puedes 
hacerlo con toda garantía. 
Acude a tu Concesionario Autorizado INVESTRONICA y en breve espacio de tiempo 
dispondrás de tu Spectrum con MAS POTENCIA. 
Además INVESTRONICA ampliará por tres meses la garantía de tu equipo, 
independientemente de la fecha de adquisición y te obsequiará con una 
Cinta de Demostración de 48 K. 


IMPORTANTE: 


Amplía, 
ahora, tu SPECTRUM 
de 16 Ка 48 К. 


Con garantía... 
Con más garantía. 


DE VENTA EN CONCESIONARIOS 
AUTORIZADOS. 


LO ULTIMO PARA 


TM PUBLICIDAD 


MASTER TOOL KIT 


28 utilidades diferentes 

muy útiles, p.e. 

- reloj en tiempo real. 

- renumeración. 

- búsqueda de cadenas, 
etc. 


ADRESS MANAGER 


Muy útil como agenda para 
direcciones, etc. ¡Ahora con 
formato para impresora en 

80 columnas! 


CHESS THE TURK 


Juega al ajedrez hasta en 
6 niveles diferentes. 
Programa muy 
perfeccionado, considerado 
de los mejores del 
mercado. 


MACHINE CODE TEST 
TOOL 


Diversas utilidades para 
trabajar en código 
máquina. Muy valioso para 
iniciarse o ampliar 
Conocimientos. 


FULL SCREEN EDITOR 
(ASSEMBLER) 


Magnífico editor completo 
para ensamblar programas. 
Gran capacidad de 
caracteres/línea. 


FINANCE MANAGER 


Fichero financiero con 
contabilidad. Con opción 


< para impresora en 


AX 80 columnas. 


IMPORTADAS EN EXCLUSIVA 
PARA ESPANA 


POR SINCLAIR STORE 


Con él podrás copiar cualquier dibujo, por 
complicado que sea y pasarlo 
posteriormente а la impresora. Muy útil 
para dibujos cartográficos. 


Escucha cómo habla tu Spectrum. Muy 
útil al introducirle los programas pues va 
“diciendo” los comandos y datos, y no 
hace falta mirar a la pantalla. 

Descubre sus múltiples aplicaciones. 


Unico en su género. Joystick programable 
con memoria que almacena varios 
juegos a la vez, durante tiempo 
indefinido. Incluye interface con salida 
que permite conexión de otros periféricos. 


Crea tus propios dibujos directamente en 
la pantalla. 
Desarrolla tu imaginación al límite. 


Disponibles en estos momentos; === 


= Tratamiento de textos. 
- Base de datos 


- Hoja de cálculo 
- Contabilidad general (64 caracteres). 


Nuevos programas en preparación. 


Ven a vernos a nuestras "Super-Boutiques" informáticas. 


P m) "P m) mm 
SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (арагс. gratuíto en c/. Magallanes, 1) Tel. 446 62 31 
DIEGO DE LEON, 25 - Tel. 261 88 01- MADRID 


